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ABSTRACT 


This  is  the  final  report  of  Contract  No.  N00014-79-C-0527  between  the 
Office  of  Naval  Research  and  Administrative  Sciences  Corporation.  Monitored 
by  the  Office  of  the  Chief  of  Naval  Operations  (OP-964),  the  objective  of  the 
work  was  to  develop  an  automated  model  for  estimating  Naval  manpower  supply 
and  demand  in  a  mobilization  scenario.  This  report  provides  a  non-technical 
description  of  the  model’s  structure  and  capabilities.  Documentation  of 
computer  programs  is  contained  in  an  appendix. 

The  model's  basic  measure  of  time  is  a  ten-day  increment.  Events  are 
initiated  at  Pre-M  Day  and  proceed  to  M-Day,  M+10,  M+20,  etc.  There  is  a 
supply  sector  and  a  demand  sector.  Within  each  is  a  trained  and  an  untrained 
(trainee)  component.  Comprehensive  submodels  for  estimating  casualty  replace¬ 
ment  demand  and  medical  staff  requirements  are  contained  in  the  demand  sector. 
Outputs  from  the  two  sectors  constitute  inputs  to  a  summary  model  which  pro¬ 
duces  both  tabular  and  graphic  comparisons  of  aggregate  supply  and  demand. 
Examples  of  all  of  the  model's  outputs  are  contained  in  the  report.  However, 
they  are  for  illustrative  purposes  only  and  should  not  be  construed  as  repre¬ 
senting  any  official  estimates  of  mobilization  manpower  supply  and  demand. 
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I .  INTRODUCTION 


Administrative  Sciences  Corporation  (ASC) ,  under  Contract  No.  N00014- 
79-C-0527  with  the  Office  of  Naval  Research,  has  completed  development  of  an 
automated  model  which  estimates  time-phased  Naval  mobilization  manpower  supply 
and  demand.  Its  purpose  is  to  provide  an  improved  capability  for  addressing 
mobilization  issues  which  arise  in  connection  with  the  CPAM  process. 

The  model  is  programmed  in  SUPER  FORTRAN,  a  superset  of  H-Level  FORTRAN 
IV,  for  operation  in  a  time-shared  mode  on  a  Xerox  Data  System  940.  Documenta¬ 
tion  of  the  nine  computer  programs  which  make  up  the  model  is  contained  in  an 
appendix  to  this  report.  The  report's  primary  objective  is  to  provide  a  non¬ 
technical  description  of  the  model  and  its  capabilities. 

Following  this  Introduction,  Section  II  describes  the  accounting 
structure  and  presents  a  brief  overview  of  the  model.  Section  III  describes 
the  supply  sector  and  Section  IV  the  demand  sector.  Finally,  Section  V  dis¬ 
cusses  a  wide  range  of  potential  applications  of  the  model. 
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II.  ACCOUNTING  STRUCTURE  AND  MODEL  OVERVIEW 


f  The  model's  basic  measure  of  time  is  a  ten-day  increment.  Events 

are  initiated  at  Pre-M  Day  and  proceed  to  M-Day,  M+10,  M+20,  etc.  Increments 
may  be  combined  to  accommodate  scenarios  prepared  in,  for  example,  thirty-day 
'  increments  after  M+90. 

There  is  a  supply  sector  and  a  demand  sector.  Within  each  is  a  trained 
and  an  untrained  (trainee)  component.  Elements  of  trained  supply,  for  officers 
’  and  enlistees  separately,  are: 

.  Initial  Active  Force 
.  Selected  Reserve 

,  Other  Inactives  (Reserves  and  Retirees) 

.  Training  Output 

Total  supply,  trained  and  untrained,  consists  of  the  above  plus  the  trainee 
population. 

Elements  of  trained  demand,  likewise  for  officers  and  enlistees,  are: 

.  Structure  Billet  Requirements 

.  Non-structure  Requirements  (Transients  and  Students) 

.  Casualty  Replacement  Demand 

Total  demand,  trained  and  untrained,  consists  of  the  above  plus  the  demand  for 
trainees . 

Outputs  from  the  supply  and  demand  sectors  constitute  inputs  to  a  summary 
model  which  produces  both  tabular  and  graphic  comparisons  of  aggregate  supply  and 
demand.  Exhibit  II-l  provides  an  example  of  the  supply  and  demand  summary  tables 


EXHIBIT  II-I 

EXAMPLE  SUMMARY  SUPPLY  AND  DEMAND  TABLES 


5/23/80  DEHORUN  ENLISTEB/OFFICERS 

*  awJLATIVE-SUPPlV  * 


PPE-H  H 

H+10 

H+20 

M+30 

H+40 

H+50 

H+60 

K+70 

M+80 

H+90 

H+120 

(1+150 

n+130 

TOTAL  536490  633390  662537  699554  755411  7 

'60011  765654  773811  ' 

’30240  736769  797197  312533  ? 

(32369  3*3169 

TRAINED 

511300  609543 

636133 

671028 

725118 

727308 

730553 

736313 

739615 

742666 

745977 

759745 

776214 

795691 

INITIAL  AF 

511300  511300 

511300 

511300 

511300 

511:700 

511300 

511300 

511300 

511300 

511:700 

511300 

5113(10 

51 1EOO 

SELECT  RES 

0  32200 

32200 

32200 

32200 

82200 

82200 

32200 

32200 

32200 

32200 

82200 

32200 

82200 

OTHP  INACT 

0  13300 

37*00 

70500 

122500 

1225(10 

122500 

125000 

125000 

125000 

125000 

1 25000 

125000 

125000 

TRAIN  OUTP 

0  22*3 

4333 

6523 

XAl  l? 

1030® 

14053 

17318 

20615 

23666 

26977 

40745 

57214 

76691 

TRAINEE 

24690  243*2 

26339 

23526 

<0213 

32707 

35101 

36.997 

406.25 

4*102 

*7220 

57373 

56155 

52473 

5 '23/30  DEHORUN  ENLISTED/ OFF I CEPS 

*  CUHW  AT  I  VE-Df HAND  * 


PRE-M 

n 

N+10 

M+20 

M+30 

M+40 

W+50 

M+60  n+?o 

11+30 

N+90 

11+ 120 

M+150  K+130 

593.710 

*072*9  i 

317111 

ft/,.7733 

852392 

330165 

S7607A 

ft""3533  326545 

325*96 

84*532 

841601 

74*59]  ft  79597 

5705:79 

725313 

739312 

790533 

790356 

776412 

737053 

773-565  ■’30*386 

781794 

797767 

73*764 

7  38336  7:77 1 1 9 

STRUCTURE 

*51139 

6*2675 

6416*3  6810*2  631026 

66*755 

661190 

*50951 

*49740 

6*7992 

6625*0  65753* 

66  79*1 

NON-STRIXT 

79400 

31475 

9*355  96570  83lft9 

72668 

72523 

69140 

6**35 

63947 

67313  61062 

*  ’3 

57545 

(Aft-REPLS 

0 

1 

3809  12921  261*1 

79739 

49746 

5:7474 

66261 

69*59 

71604 

70117 

71166  7;a72 

■caINEE 

67720 

3 1 437 

77299  63354  62536 

53753 

5+97* 

51'M3 

46**0 

4*Ki2 

*7220 

52333 

56155 

52*73 

for  officers  and  enlistees  combined.  Computations  of  manpower  shortages  and 
overages  are  illustrated  in  Exhibit  II-2,  and  the  same  data  are  displayed  in 
graphic  form  in  Exhibit  II-3.  It  should  be  emphasized  that  all  model  outputs 
appearing  in  the  report  are  for  illustrative  purposes  only;  they  should  not 
be  construed  as  representing  any  official  estimates  of  wartime  manpower  supply 
and  demand. 


EXHIBIT  II-2 


EXAMPLE  COMPUTATION  OF  SHORTAGES  AND  OVERAGES 


5/23/80  DEM0R1JN  ENLISTED/OFFICERS 

»  nm.ATIVE-9.NWY  ♦ 


PPE-H 

M 

M+10 

N+20  N+30 

H+40 

M+50 

M+40 

M+70 

M+80 

M+90 

14+120 

M+150 

M+180 

SUPPLY 

534490 

433890 

442537 

499554  755411 

740011 

765454 

773811 

730240 

736749 

7*3197 

812533 

832349 

84314* 

TRAINED 

511800 

409548 

434138 

471023  725118 

7273*38 

730559 

734813 

739415 

742444 

745977 

759745 

774214 

7*54*1 

TRAINEE 

244?0 

24342 

24399 

28524  30293 

32703 

35101 

34993 

40425 

44102 

47220 

52838 

54155 

52478 

DEMAND 

598310 

807249 

317111 

840398  852:392 

330145 

334034 

32*583 

824545 

825494 

844582 

341401 

8449*1 

83*5*7 

TRAINED 

530589 

725813 

739812 

790533  790354 

774412 

733058 

779545 

780084 

781394 

7*7343 

788744 

788834 

787  n  9 

TRAINEE 

47720 

81437 

772*9 

69854  42534 

53753 

52973 

51013 

4.4440 

44102 

47220 

52338 

54155 

52473 

SHORT (OVER) 
TOTAL 

-41820  - 

■173359  ■ 

-154574  - 

-140833  -97481 

-70154 

-70382 

-55771 

-46305 

-38727 

-51335 

-29019 

-12422 

rtr") 

•J  J  t  *_ 

TRAINED 

-187S9 

-114244 

-103473 

-119505  -45238 

-4*104 

-52505 

-41744 

-40471 

-38727 

-51335 

-2*01* 

-12422 

8572 

TRAINEE 

-43030 

-570*5 

-50900 

-41328  -32243 

-21050 

-17877 

-14025 

-5835 

0 

0 

0 

0 

0 
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EXHIBIT  II-3 

EXAMPLE  GRAPHIC  COMPARISON  OF  AGGREGATE  SUPPLY  AND  DEMAND 

5/23/80  DENORIN 
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III.  SUPPLY  SECTOR 


Exhibit  III-l  is  a  flow  chart  which  identifies  and  describes  the  order 
of  computations  that  result  in  the  supply  sector  output.  These  data  are  gener¬ 
ated  prior  to  initiating  demand  computations  since  they  are  required  as  input 
to  the  casualty  replacement  submodel,  one  of  two  major  submodels  in  the  demand 
sector. 


Training  Output 

As  the  exhibit  indicates,  supply  computations  begin  with  estimation  of 
output  from  the  training  establishment.  For  officers,  those  numbers  are  devel¬ 
oped  outside  the  model  and  treated  as  "thruputs."  For  enlistees,  there  is  a 


training  submodel.  Inputs  to  the  submodel  are: 


.  Length  of  Pre-M  boot  camp  (wks) 

.  Pre-M  boot  input  per  week 
.  Pre-M  population  in  "A"  schools 
*  Pre-M  population  in  boot  camps 
.  Recruit  attrition  rate  (%) 

.  Percent  of  Post-M  boot  output  assigned  to  "A"  schools 
.  Length  of  Post-M  boot  camp  (wks) 

.  Length  of  Post-M  "A"  schools  (wks) 

.  Capacity  of  boot  camps 
.  Number  of  Post-M  weeks  to  be  processed 
.  Post-M  boot  input  for  each  week 

Example  output  is  displayed  in  Exhibit  III-2.  Note  that  the  output  is 
expressed  in  weeks  rather  than  ten-day  increments.  The  submodel  contains  an 
algorithm  which  converts  those  data  into  the  required  ten-day  format  for  use 
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EXHIBIT  III-2 

EXAMPLE  OUTPUT  FROM  ENLISTED  TRAINING  SUBMODEL 


t 


DEHOSUP  WORLD  WIDE  SUPPLY  ENLISTED 

TRAINING  PPOGfiM  30  WEEKS  5/23/80 


TIME 

BOOT  BOOT 

BOOT 

BOOT 

TO 

TO 

A-SCH 

A-SCH 

TOT 

TOT 

CUN 

(WKS) 

inpt  on 

OTPT 

POP 

FLT 

A-SCH 

OTPT 

POP 

POP 

OTPT 

OTPT 

0 

C 

0 

2926 

13000 

1170 

1756 

873 

9642 

22642 

2048 

2048 

1 

2300 

230 

1463 

14057 

585 

878 

878 

9642 

23699 

1463 

3511 

2 

3700 

370 

1463 

15924 

585 

878 

878 

9642 

25566 

1468 

497* 

3 

3000 

300 

1463 

17161 

585 

373 

378 

9642 

26.603 

1*63 

6437 

4 

3000 

300 

1463 

13398 

585 

878 

378 

9642 

25040 

1463 

790(> 

c( 

3000 

300 

1463 

1^635 

585 

878 

373 

9642 

29277 

1463 

9666 

6 

4000 

400 

1463 

21772 

585 

873 

873 

9642 

31414 

1 466 

10326 

7 

4000 

400 

2520 

22352 

1008 

1512 

378 

10276 

33123 

1886 

12712 

R 

4000 

400 

3330 

23122 

1332 

1999 

1756 

10518 

33640 

6088 

15800 

9 

5000 

500 

2700 

24922 

1080 

1620 

378 

11261 

36183 

1958 

17757 

10 

5000 

50(1 

2700 

26722 

1080 

1620 

378 

1 2003 

38725 

1953 

19715 

11 

5000 

500 

2700 

28522 

1080 

1620 

873 

12745 

41267 

1958 

21676 

12 

5000 

500 

3600 

29422 

1440 

2160 

873 

14027 

43449 

2315 

26991 

13 

5000 

500 

3600 

3(i322 

1440 

2160 

378 

15309 

45631 

2313 

26609 

14 

5000 

500 

3600 

31222 

1440 

2160 

373 

16592 

47.314 

2:18 

25626 

15 

5000 

500 

4500 

31222 

1300 

2700 

1512 

177?(. 

49002 

3312 

3i  973 

16 

5000 

500 

4500 

31222 

1800 

2700 

1998 

18432 

49704 

3793 

35736 

17 

5000 

500 

4500 

31222 

1800 

2700 

1620 

19562 

50734 

3*20 

69156 

13 

5000 

500 

4500 

31222 

1800 

2700 

1620 

20642 

51864 

3420 

42576 

r? 

5000 

500 

4500 

31222 

1800 

2700 

1620 

21722 

57944 

3420 

*5996 

20 

5000 

500 

4500 

31222 

1300 

S’OO 

2160 

22262 

53484 

6960 

49956 

21 

5000 

500 

4500 

■31222 

1800 

27(n) 

2160 

54034 

3960 

56916, 

■  i 

-i. 

1 

500 

4500 

31222 

1300 

2700 

2160 

27242 

54564 

6960 

57S76 

“j 

400 

1500 

30322 

1500 

2700 

2700 

23342 

56664 

4500 

6  2”  "6 

24 

400 

4500 

29422 

1300 

2700 

2700 

233*2 

52764 

45.VI 

66976 

25 

4‘Vm 

400 

4500 

23522 

1300 

2700 

7700 

23342 

51  St* 

4500 

713~6 

26 

yVh 

300 

4500 

26722 

1300 

2700 

7700 

23342 

50064 

4C(W> 

'SS’h 

27 

0 

4500 

22222 

1300 

2700 

7700 

26742 

45564 

4500 

;  0676 

";6 

> 

0 

4500 

17722 

1800 

27(0 

27(H) 

23642 

41 064 

4500 

S49“6 

2’9 

0 

360i) 

14122 

1440 

2160 

7700 

22302 

36924 

4140 

69016 

70 

0 

0 

3600 

10522 

1440 

2160 

2'oo 

22262 

32784 

4*40 

9  3 1 56 
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elsewhere  in  the  model.  Note  also  that  the  submodel  computes  the  size  of  the 
trainee  population  at  each  time  interval.  This  is  the  source  of  data  for  the 
j  untrained  component  of  total  supply. 

Other  Elements  of  Supply 

The  initial  active  force  is  a  single  number  -  actually  two  numbers,  one 
^  for  officers  and  the  other  for  enlistees  -  taken  from  the  FYDP  for  the  time 

frame  in  question.  The  same  is  true  of  the  Selected  Reserve.  Input  data  per¬ 
taining  to  other  inactive  personnel  are  based  on  estimates  of  the  sizes  of  those 
,  populations  and  the  time-phased  yields  likely  to  be  produced  by  various  manage¬ 

ment  actions.  Output  from  the  full  supply  submodel  is  illustrated  in  Exhibit  III-3. 
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EXHIBIT  III-3 

EXAMPLE  OUTPUT  FROM  SUPPLY  SUBMODEL 

5/23/80  OEMOSUP  ENLISTED  WORLD  HIDE  SlJPPLY 


PPE-N 

H 

H+10 

M+20 

N+30 

H+40 

n+50 

M+60 

H+70 

M+80 

H+90 

H+120 

n+150 

» 

SlJPPLY 

456690 

531290 

555737 

588654 

637211 

641711 

646854 

652511 

658940 

665369 

671797 

691083 

710369 

TP  POP 

432000 

5C>8648 

531238 

562028 

608818 

610908 

613653 

617418 

620215 

623166 

626477 

640145 

656114 

ACT  F 

♦32000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

432000 

1 

SEL  R 

0 

65600 

65600 

65600 

65600 

Ac600 

65600 

65600 

65600 

65600 

65600 

656(H) 

65600 

OTH  I 

0 

9000 

29500 

58200 

102900 

102900 

102900 

102900 

102900 

102900 

102900 

' 07900 

102900 

T  OUT 

0 

2048 

4138 

6228 

8318 

10408 

13153 

16918 

19715 

22666 

25977 

39645 

55614 

t 

TRAINEE 

24690 

22642 

24499 

26626 

28393 

9OA03 

33201 

35093 

33725 

42202 

45720 

50938 

54255 

» 

5/23/30 

DENOSUP 

OFFICERS 

WORLD  WIDE  SUPPLY 

PRE-M 

N 

M+10 

M+20 

M+30 

M+40 

M+50 

M+60 

N+7(l 

M+80 

M+90 

M+120 

M+150 

SlJPPLY 

79:800 

1 026X1 

106800 

110900 

113200 

1 ]  99(H) 

113800 

121300 

121300 

121400 

121400 

121500 

122000 

TP  POP 

79  800 

100900 

104900 

109000 

1 16300 

116400 

11690(1 

1P40O 

11 9400 

119500 

119500 

1P600 

12010(i 

ACT  F 

79:900 

79A00 

79800 

79900 

79900 

79:900 

799(10 

793(H) 

79900 

799(H) 

79900 

799(H) 

'99(H) 

» 

SEL  P 

0 

166-yi 

16600 

16600 

16600 

1660() 

16600 

16600 

16600 

W.00 

16600 

1+600 

1+600 

OTH  I 

0 

4300 

33<X> 

12300 

P600 

P600 

19.8(i0 

22100 

22100 

22100 

22100 

22100 

••2100 

T  OUT 

0 

200 

200 

300 

300 

400 

9T*0 

900 

900 

1000 

1000 

1100 

1600 

> 

TRAINEE 

0 

1700 

1900 

1900 

1900 

1900 

POO 

1900 

POO 

1900 

1900 

POO 

poO 

N+180 

725669 

675091 

♦32000 

65600 

102900 

74591 

50578 


(1+180 

122500 
1 I06  00 
’99(H) 
16600 
22100 
:i-x> 

1900 


p** 


I 
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IV.  DEMAND  SECTOR 
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Overview 

Exhibit  IV-1  identifies  and  describes  the  order  of  computations  which 
ultimately  result  in  the  detailed  demand  sector  output.  The  first  set  compri¬ 
ses  those  computations  associated  with  casualty  estimation.  Outputs  from 
the  casualty  submodel  become  inputs  to  a  second  submodel  which  estimates 
requirements  for  physicians,  nurses  and  hospital  corpsmen  both  within  and 
outside  theaters  of  operations.  Outputs  from  this  submodel  are  combined  with 
the  casualty  output  and  with  externally  generated  estimates  of  non-theater 
demand  to  serve  as  inputs  to  the  overall  demand  submodel.  The  following 
paragraphs  provide  amplification  of  the  principal  components  of  the  demand 
sector. 

Theater  Structure,  Casualty  Replacement  and  Medical  Staff  Demand 

As  Exhibit  IV-1  indicates,  one  of  the  inputs  to  the  casualty  submodel 
is  the  size  of  exposed  populations  (officers  and  enlistees)  for  each  theater 
of  operations  being  examined.  On  the  assumption  that  all  theater  structure 
billets  can  be  and  are  filled  from  available  supply  (shortages  being  absorbed 
out-of-theater) ,  theater  exposed  populations  and  theater  structure  demand  are 
identical.  Determination  of  those  requirements  is  a  very  complicated  and  time- 
consuming  process  which  involves  the  following  general  steps: 

(1)  Defining  the  size,  shape,  readiness  condition  and  deployment 
posture  of  the  Navy  and  Marine  Corps  at  the  time  immediately 
prior  to  beginning  of  the  scenario 

(2)  Organizing  ships  and  aircraft  into  notional  task  forces  in 
accordance  with  availability  times,  locations  and  scenario 
applications 


I 
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(3)  Meshing  all  force  units,  their  ancillary  attachments  and 
direct  support  units  into  a  "time  line"  and  into  geographic 
locations  for  a  period  beginning  with  pre-event  status  and 
running  beyond  expiration  of  scenario  time 

(4)  Determining  indirect  support  requirements  necessary  to 
support  the  scenario,  and  determining  the  political  or 
policy  billets  that  would  exist  either  for  national  purposes 
or  in  connection  with  internal  DOD  policies 

Since  much  of  the  above  is  judgmental  in  nature  and  does  not  lend  itself  to 
automation,  both  theater  and  non-theater  structure  demand  are  computed  out¬ 
side  the  model  and  thruput.  Since  those  requirements  are  developed  twice 
a  year  (by  OP-11)  in  connection  with  the  OSD-directed  Wartime  Manpower  Program 
System  (WARMAPS) ,  a  source  for  "base  case"  inputs  is  readily  available. 

Casualties  estimated  to  occur  at  sea  in  connection  with  aircraft  losses, 
ship  sinkings  and  major  battle  damage  are  likewise  treated  as  thruputs.  Output 
from  the  supply  submodel  is  required  as  an  input  to  the  casualty  submodel  since 
non-theater  exposed  populations  are  determined  by  subtracting  theater  structure 
demand  (the  same  as  theater  exposed  populations)  from  total  supply.  Appendix 
A  provides  a  detailed  discussion  of  the  casualty  submodel.  Exhibit  IV-2 
provides  an  example  of  its  output  applicable  to  theater  casualties  and  replace¬ 
ment  demand,  and  Exhibit  IV-3  illustrates  non-theater  demand. 

In  connection  with  any  mobilization  manpower  analysis,  considerable  in¬ 
terest  centers  on  the  magnitude  and  location  of  medical  staff  requirements  - 
physicians,  nurses  and  corpsmen.  Because  of  that,  and  because  computation  of 
those  requirements  is  ideally  suited  for  automation,  a  medical  requirements 
submodel  was  developed  as  part  of  the  demand  sector. 


EXHIBIT  IV-2 

EXAMPLE  CASUALTY  SUBMODEL  OUTPUT,  THEATERS 

5/23/90  DEHOWJN  TOTAL  TTCATER  OFi£NL 


PPE-fl 

n 

lt+10 

H+20 

N+30 

H+40 

*♦50 

rt+60 

H+70 

H+80 

«+90 

14+100 

H+110 

H+120 

POP 

122360 

142499 

218752 

293248 

299963 

315968 

366946  375878 

378420 

382096 

387817 

387817 

39(1245 

398728 

AtV.t-POP 

122360 

142499 

218752 

293248 

299963 

315968 

366946  375878 

378420 

382096 

387817 

387817 

390245 

398728 

BTL  CAS 

0 

0 

0 

9265 

5474 

4302 

8484 

3543 

4399 

5447 

0 

0 

1299 

0 

KIA 

0 

0 

0 

3803 

2737 

2151 

3550 

1771 

2199 

2848 

0 

0 

456 

0 

WIA 

0 

0 

0 

5462 

2737 

2151 

4934 

1772 

2200 

3099 

0 

0 

843 

0 

fc'IA 

0 

0 

3 

3810 

2744 

2158 

3557 

1841 

2335 

2433 

85 

85 

541 

85 

UIA 

0 

0 

1! 

5485 

2760 

2174 

4957 

2030 

2704 

3444 

345 

345 

1188 

345 

EVAC 

0 

0 

3 

2279 

3421 

2(47 

2587 

2376 

1610 

1677 

834 

152 

337 

337 

HOSP 

0 

0 

9 

3206 

-662 

126 

236? 

-345 

1095 

1767 

-438 

193 

851 

3 

[MB! 

o 

1368 

1937 

2816 

3263 

3388 

3756 

4086 

4149 

4183 

4235 

4266 

4279 

4339 

EVAC 

o 

66 

161 

630 

1155 

1264 

101? 

784 

823 

616 

404 

408 

410 

414 

HOSP 

0 

1302 

1826 

2186 

2108 

2124 

2737 

3301 

3325 

3567 

3830 

3858 

3869 

3«26 

MU 

o 

0 

0 

28 

14 

11 

48 

19 

26 

58 

6 

6 

20 

6 

PTB 

0 

101 

1058 

2404 

2947 

2527 

2083 

3509 

4372 

3801 

3360 

4608 

tsss 

4171 

PATS 

0 

1201 

1978 

4938 

3423 

3135 

6111 

5539 

5561 

7037 

6513 

5951 

5766 

5523 

PPLS 

0 

1267 

944 

9707 

5819 

5192 

10187 

4447 

4817 

6260 

805 

89 

1124 

600 

Ci.M-PEP 

0 

1267 

2211 

1P17 

17736 

22928 

33115 

37563 

42379 

48640 

49445 

49534 

50658 

51257 
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EXHIBIT  IV-3 

EXAMPLE  CASUALTY  SUBMODEL  OUTPUT,  NON-THEATERS 


5/23/90  DEWRIJN 


TOTAL  NON- THEATER 


ENLMFF 


PRE-fl 

N 

H+10 

N+20 

H+30 

N+40 

n+so 

N+60 

N+70 

H+80 

H+90 

n+120 

M+150 

H+180 

POP 

168464 

196032 

196032 

196032 

221098 

221098 

221098 

223829 

223829 

223829 

234740 

234740 

234740 

237439 

ADJ-POP 

503015 

759439 

630482 

525443 

573171 

546212 

452127 

444723 

445621 

446465 

441650 

439593 

461202 

466995 

ONBI 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

UIA-TR 

0 

0 

6 

4558 

6842 

4/»94 

5174 

4752 

3220 

3354 

1668 

1652 

1480 

1260 

PNB! 

0 

5’«7 

7967 

7618 

8352 

S685 

7529 

6501 

6543 

6138 

56®3 

17186 

17392 

17892 

TR 

0 

132 

322 

1260 

2310 

25.28 

2038 

1568 

1646 

1232 

808 

2464 

2522 

2538 

OTHP 

0 

5815 

7645 

6358 

6042 

6157 

5491 

4933 

4897 

4906 

4885 

14722 

14370 

15354 

D0W-01S 

0 

2 

5 

602 

909 

56/i 

692 

631 

436 

447 

225 

246 

225 

197 

RTB 

0 

1551 

4933 

7206 

6565 

6109 

6093 

5848 

6234 

7088 

7808 

27786. 

23952 

22881 

PATS 

1100 

5495 

8529 

12896 

20616 

26725 

32643 

37417 

40509 

42466 

41793 

32599 

27294 

23368 

REPLS 

0 

4265 

2711 

-849 

-523 

47 

-602 

-916 

-1338 

-2182 

-2924 

-13065 

-9082 

-75.27 

CijH-REP 

0 

4265 

6976 

6127 

5604 

5652 

5/(49 

4134 

2796 

614 

-2310 

-15374 

-2*456. 

-31984 
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This  submodel  basically  operates  off  outputs  from  the  casualty  sub¬ 
model  and  a  set  of  medical  care  factors  supplied  by  BUMED.  The  factors  are 
>  expressed  in  terms  of  number  of  physicians,  nurses  and  corpsmen  required 

for  each  day  of  a  patient's  hospitalization;  for  example,  1.196  physicians 
for  day  1;  0.107  for  days  2  through  6;  etc.  There  are  separate  factors  for 
f  theater  and  non-theater,  and  for  WIA/NBI  and  diseased.  Appendix  B  contains 

a  complete  list  of  the  factors. 

The  computations  involved  are  straightforward  conceptually,  although 
f  by  no  means  trivial  from  a  programming  point  of  view  (reference  the  description 

in  Appendix  C  of  the  program  labeled  "MMMHOSPRG") .  Requirements  for  each  type 
of  staff  resource  are  computed  separately  for  each  day  in  the  scenario.  The 
*  following  is  an  example  of  the  computation  of  physician  requirements  for  day  3. 


Day 

Hospitalized 

Number 

Hospitalized 

Number 

Remaining 

Care 

Factor 

Requirement 

3 

50 

50 

1.196 

59.8 

2 

50 

45 

0.107 

4.8 

1 

50 

40 

0.107 

4.3 

TOTAL  REQ' 

T  FOR  DAY: 

68.9 

Differences  between  numbers  hospitalized  and  numbers  remaining  are  attributable 
to  returns-to-duty ,  evacuations,  discharges  and  died-of-wounds  -  information  on 
which  is  obtained  from  the  casualty  submodel.  After  performing  these  calculations, 
the  medical  requirements  submodel  scans  each  ten-day  time  incr^nent  for  its  max¬ 
imum  requirement,  and  records  that  value  as  the  increment's  requirement.  Example 
outputs  from  the  submodel  appear  in  Exhibits  IV-4  and  IV-5. 
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EXHIBIT  IV-4 

EXAMPLE  MEDICAL  REQUIREMENTS  SUBMODEL  OUTPUT,  THEATERS 


5/26/80  DEHORUN  TOTAL  T>€ATER  HIAVMBI 


ADMISSIONS 

PATIENTS 

DOCTORS 

NURSES 

CORPSNEN 

n 

274 

213 

50 

86 

136 

M+10 

409 

468 

83 

175 

267 

N+20 

6048 

3566 

1011 

1547 

2514 

M+30 

3412 

3407 

702 

1341 

2062 

(1+40 

2851 

1963 

504 

824 

1316 

n+50 

5708 

3740 

977 

1576 

2531 

11+60 

2343 

3586 

644 

1359 

2049 

N+70 

3534 

2893 

630 

1148 

1801 

H+80 

4281 

3928 

802 

1531 

2374 

M+90 

1192 

3767 

446 

1299 

1858 

11+100 

1199 

3235 

355 

1095 

1575 

(1+110 

2044 

2881 

429 

1035 

1547 

(1+120 

1213 

2575 

335 

901 

1312 

(1+130 

1223 

2420 

310 

843 

1232 

(4+140 

1869 

2287 

377 

840 

1269 

(1+150 

1223 

2468 

326 

866 

1265 

(1+160 

1223 

2342 

305 

819 

1199 

(1+170 

1622 

2221 

343 

804 

1205 

M+180 

1234 

2295 

312 

8(i9 

1188 

11+190 

1234 

2223 

300 

782 

1150 

11+200 

1234 

2129 

294 

753 

1110 

(1+210 

1235 

2025 

288 

720 

1066 

(1+220 

1235 

2025 

288 

721 

1066 

d+230 

1236 

2026 

288 

721 

1066 

M+240 

0 

1903 

141 

609 

884 

11+250 

0 

1000 

60 

312 

426 

r 
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EXAMPLE  IV-5 

EXAMPLE  MEDICAL  REQUIREMENTS  SUBMODEL  OUTPUT,  WORLDWIDE 


5/26/90 

OEMORUN 

WORLD  WIDE 

UIAbQIS 

ADMISSIONS 

PATIENTS 

DOCTORS 

NURSES 

CORPSMEN 

OFFICERS 

ENLISTED 

TOTAL 

PEAK 

M 

5286 

5092 

341 

1569 

2072 

1910 

2072 

3983 

H+10 

6862 

10820 

590 

2921 

3759 

3511 

3759 

7270 

H+20 

15089 

17143 

1758 

5542 

7708 

7300 

7708 

15008 

M+30 

14234 

22991 

1714 

6980 

9350 

8695 

9350 

18044 

H+40 

12553 

27098 

1662 

7641 

10018 

9303 

10018 

19321 

N+50 

15646 

36079 

2329 

9654 

12663 

11983 

12663 

24646 

11+60 

12309 

42698 

2176 

10901 

13956 

13078 

13956 

27034 

M+70 

12280 

46999 

2208 

11554 

14669 

13762 

14669 

28431 

H+80 

12887 

50082 

2330 

12U2 

15357 

14442 

15357 

29799 

(1+90 

8804 

51578 

1953 

12139 

15123 

14092 

15123 

29215 

M+100 

8187 

51250 

1757 

11686 

14434 

13443 

14434 

27877 

M+110 

9218 

51057 

1746 

11422 

14083 

13168 

14083 

27251 

11+120 

3381 

48282 

1564 

10772 

13235 

12337 

13235 

25572 

K+130 

8204 

44460 

1416 

9928 

12211 

11344 

12211 

23555 

(1+140 

9008 

43325 

1440 

9672 

11929 

11112 

11929 

23041 

M+150 

8375 

43627 

1398 

9756 

12006 

11155 

12006 

23160 

11+160 

8234 

43071 

1366 

9603 

11812 

10969 

11812 

22732 

M+170 

8722 

42989 

1400 

9545 

11752 

10945 

11752 

22697 

M+130 

8347 

44294 

1395 

9800 

12032 

11195 

12032 

23228 

N+170 

8270 

47134 

1424 

10340 

12653 

11764 

12653 

24417 

d+200 

8271 

48744 

1438 

10626 

12972 

12064 

12972 

25036 

(1+210 

8271 

49409 

1443 

10749 

13109 

12192 

13109 

25301 

(1+220 

8271 

50137 

1450 

10893 

13276 

12343 

13276 

25619 

H+230 

8270 

50673 

1455 

10993 

I3393 

12453 

13398 

25851 

(1+240 

0 

49831 

1184 

10669 

12878 

11853 

12878 

24731 

(1+250 

0 

41466 

833 

8452 

10003 

9286 

10003 

19289 

t 


21 


Non-Structure  Billet  Requirements 

The  demand  submodel  has  the  capability  of  estimating  non-structure 
billet  requirements,  which  consist  of  transients  and  students  and  are  associated 
only  with  the  non-theater,  as  a  (variable)  percentage  of  structure  requirements. 
It  can  also  accept  them  as  thruputs.  The  demand  submodel's  full  output  is  illus¬ 
trated  in  Exhibits  IV-6  and  IV-7. 

Demand  for  Trainees 

Certain  mobilization  manpower  analyses  -  notably  OSD's  WARMAPS  -  simply 
set  trainee  demand  equal  to  trainee  supply.  However,  for  the  purposes  of  this 
model  it  was  considered  useful  to  allow  the  relationship  between  trainee  demand 
and  supply  to  reflect  potential  manpower  shortages.  Thus, on  the  assumption 
that  it  would  take  ninety  days  to  train  for  and  fill  an  empty  billet  once  it 
is  perceived,  and  assuming  further  a  ten  percent  trainee  attrition  rate,  the 
model  takes  successive  ninety-day  "looks"  out  into  scenario  time,  records  any 
shortages  that  exist,  adjusts  for  attrition,  and  adds  the  result  to  trainee 
supply  to  compute  trainee  demand  for  each  period.  Since  those  computations 
require  all  other  demand  and  supply  computations  to  have  been  completed,  they 
are  done  in  the  summary  model  and  reflected  in  the  output  illustrated  in  Section 
II.  Output  shown  in  this  section  is  limited  to  the  demand  for  trained  manpower. 
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EXHIBIT  IV-6 

EXAMPLE  DEMAND  SUBMODEL  OUTPUT,  THEATERS 


5/23/90  DENORUN  ENLISTED  T0T«.  TTCATER 


PRE-N 

H 

M+10 

M+20 

N*30 

M+40 

M+50 

H+60 

M+70 

M+80 

M+90 

M+120 

M+150 

M+180 

DEMAND 

111014 

129923 

199638 

275071 

285498 

305204 

358476 

371428 

377803 

386815 

392303 

403402 

405979 

412438 

TRAINED 

111014 

129923 

199638 

275071 

285698 

305204 

358476 

371428 

377803 

386815 

392303 

403402 

405979 

412438 

STRUCTURE 

111014 

128774 

197640 

264065 

269318 

284096 

328003 

336872 

333861 

342140 

3469% 

356426 

356698 

361104 

THEATER 

111014 

128374 

196948 

270098 

283515 

304934 

356042 

370251 

370848 

373356 

373556 

388547 

339438 

394311 

NON-THET 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

MEDICAL 

0 

400 

692 

3034 

2513 

1790 

3163 

2782 

2547 

3210 

2800 

2356 

2334 

2266 

BIL  LOS 

0 

0 

0 

-9067 

-16710 

-22628 

-31202 

-36161 

-34534 

-34426 

-34426 

-34477 

-35074 

-35473 

NON-STRUG 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

CAS-REPLS 

0 

1149 

1998 

11006 

16380 

21108 

30473 

34556 

38942 

44675 

45373 

46976 

49281 

51334 

KIA 

0 

0 

3 

3546 

6099 

8076 

11367 

13080 

15228 

17478 

17552 

18199 

13736 

19152 

WIA 

0 

0 

9 

5110 

7676 

9667 

14252 

16128 

18596 

21754 

22055 

23747 

25251 

26524 

PNBI 

0 

1241 

3036 

5575 

8509 

11553 

1*919 

18576 

22293 

26038 

2=323 

41351 

53115 

64952 

RTDS 

0 

-92 

-1051 

-3226 

-5904 

-8188 

-10064 

-13228 

-17175 

-20596 

-24062 

-36321 

-47322 

-59294 
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EXHIBIT  IV-7 

EXAMPLE  DEMAND  SUBMODEL  OUTPUT,  NON- THEATERS 

r 

5/23/90  DEMORiJN  ENLISTED  TOT*.  NON-TTCATEF 


PRE-M 

M 

M+10 

M+20 

H*30 

M+40 

M+50 

H+60 

M+70 

M+80 

H+90 

H+120 

M+150 

n+190 

DEMAND 

162976 

174810 

176598 

178485 

202423 

205749 

208785 

212359 

214049 

215249 

224600 

219875 

2172 66 

217634 

TRAINED 

162976 

174810 

178598 

178485 

202423 

205749 

208785 

212359 

214049 

215249 

224600 

219875 

217266 

217634 

STRUCTURE 

135813 

155219 

155219 

155219 

173308 

173308 

173308 

174369 

174369 

174369 

183101 

183101 

183101 

185245 

THEATER 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

NEW-THET 

135813 

153546 

152151 

150545 

166472 

165080 

163809 

163196 

162247 

162222 

170777 

172222 

173430 

175478 

medical 

0 

1673 

3068 

4674 

6836 

8228 

9499 

11173 

12122 

12147 

12324 

10879 

9671 

9767 

BIL  LOS 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

NON-STRUC 

27163 

15522 

15522 

•15522 

17331 

17331 

17331 

17437 

17437 

17437 

18310 

18310 

18310 

18525 

CAS-REPLS 

0 

4070 

5857 

7744 

11735 

15110 

18146 

20553 

222*3 

23443 

23189 

18464 

15855 

13865 

KIA 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

UIA 

0 

0 

3 

2282 

5703 

7750 

10337 

12713 

14323 

16000 

16834 

17660 

18400 

19030 

DNBI 

0 

5597 

11990 

17600 

23399 

29390 

34505 

38843 

43177 

47320 

51237 

63104 

75171 

87719 

PTDS 

0 

-1527 

-6136 

-12138 

-17317 

-22029 

-26695 

-31003 

-35257 

-39877 

-44882 

-6230iO 

-77715 

-92885 

V.  MODEL  APPLICATIONS 

Potential  applications  of  the  model,  both  within  the  CPAM  process  and 
in  other  contexts,  fall  into  four  general  categories.  Each  is  discussed  below. 
Base  Case  Updates 

At  any  one  time,  the  model  will  be  "loaded"  with  a  set  of  base  case 
inputs  to  which  there  will  correspond  a  unique  set  of  outputs.  These  will 
reflect  the  size  and  composition  of  the  fleet,  scenarios  and  other  policy 
guidance,  and  supply  data  applicable  to  a  given  time  frame.  Each  of  the  above 
can  change  without  a  change  in  time  frame,  and  in  general  they  will  all  change 
with  a  change  in  time  frame.  Thus  one  application  of  the  model  is  to  simply 
maintain  currency;  i.e.,  to  update  the  inputs  and  execute  the  full  model  when¬ 
ever  there  is  a  change  in  the  basic  (and  official)  determinants  of  mobilization 
manpower  supply  and  demand. 

Training  Excursions 

In  Section  III,  eleven  different  inputs  to  the  enlisted  training  submodel 
were  listed.  Each  of  these  is  either  a  policy  variable  or  a  magnitude  about 
which  there  is  some  uncertainty.  Changes  in  one  or  more  of  them  could  have  a 
significant  impact  on  output  from  the  training  establishment  during  a  mobiliza¬ 
tion  period.  Thus  the  model  can  be  used  to  examine  the  sensitivity  of  training 
output  to  proposed  policy  changes,  or  to  certain  inputs  -  such  as  yields  from 
the  draft  -  characterized  by  uncertainty. 

Casualty,  Medical  Requirements  and  Evacuation  Policy  Analysis 

Applications  of  the  model  in  this  area  are  virtually  limitless.  First, 


it  is  an  area  where  the  input  factors  are  subject  to  extreme  uncertainty.  A 
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wide  range  of  sensitivity  analyses  is  suggested.  And,  as  with  the 
training  submodel,  policy  variables  -  especially  those  pertaining  to  evac¬ 
uation  -  play  a  critical  role. 

There  is  a  great  deal  of  interdependence  between  casualties,  medical 
staff  requirements  and  evacuation  policy  which  the  model  can  be  used  to  analyze. 
For  example,  casualty  estimates  and  evacuation  policies  in  combination  determine 
theater  requirements  for  physicians,  nurses  and  hospital  corpsmen.  However,  a 
particular  set  of  those  requirements  might  be  considered  infeasible.  Thus 
evacuation  policies  would  have  to  be  modified  to  result  in  theater  medical  re¬ 
quirements  which  are  feasible.  This,  in  turn,  would  have  an  effect  on  return- 
to-duty  rates,  which  would  be  reflected  in  a  modified  casualty  replacement  de¬ 
mand,  and  ultimately  in  the  "bottom  line"  -  manpower  shortages  and  overages. 
While  no  doubt  requiring  iterative  use  of  the  model,  this  type  of  application 
is  quite  legitimate  and  potentially  quite  useful. 

A  final  application  in  this  area  is  to  use  the  model's  output  as  a  basis 
for  examining  logistic  support  requirements.  For  example,  implicit  in  the  evac¬ 
uation  and  returns-to-duty  data  are  a  set  of  transportation  requirements. 
Analysis  of  those  requirements  might  reveal  them  to  be  substantially  greater 
than  what  can  be  met  by  programmed  resources.  Thus,  as  in  the  immediately 
preceding  example,  this  would  require  a  change  in  evacuation  policy,  setting 
in  motion  the  same  chain  which  ends  with  a  new  relationship  between  aggregate 
manpower  supply  and  demand. 

Qualitative  Manpower  Analysis 

While  it  is  important  for  planners  to  have  data  on  the  balance  or 
imbalance  between  total  manpower  supply  and  demand,  it  may  be  even  more 


important  to  have  those  same  types  of  insights  with  respect  to  particular 
categories  of  manpower.  The  model  can  be  used  to  examine  time-phased 
requirements  for,  and  availability  of,  machinist's  mates,  electronics  techni¬ 
cians,  etc.  It  is  especially  well  suited  for  applications  of  this  sort  in 
that,  rather  than  using  Navy-wide  averages  as  inputs,  more  precise  data  can 
be  employed.  Naturally,  much  of  the  relevant  data  gathering  and  analysis 
would  have  to  be  done  outside  the  model,  but  as  a  vehicle  for  processing 
and  displaying  those  results,  and  for  performing  many  of  the  requisite  calcu¬ 
lations,  the  model  is  quite  valuable. 
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APPENDIX  A 

CASUALTY  REPLACEMENT  SUBMODEL 


Background 

Integral  to  any  mobilization/wartime  manpower  analysis  are  the  issues 
of  casualties  and  returns-to-duty .  Obtaining  realistic  estimates  of  those 
magnitudes  is  a  difficult  task  because  of:  (1)  the  large  number  of  interacting 
variables  -  size  and  composition  of  exposed  forces,  scenario  events  and  duration, 
areas  of  deployment,  evacuation  policies  in  effect,  etc.;  (2)  the  correspondingly 
large  number  of  calculations  required;  and  (3)  the  limited  amount  of  empirical 
data  available.  All  of  this  suggests  the  need  for  algorithms  which  "simulate" 
the  casualty,  treatment  and  discharge  cycles  in  any  given  conflict.  One  such 
model,  known  as  MEDCON  II,  was  developed  at  the  Bureau  of  Medicine  and  Surgery 
(BUMED) .  A  considerable  amount  of  the  content  of  that  model  has  been  incorporated 
into  this  submodel,  and  the  final  product  has  been  fully  coordinated  with  BUMED. 
Basic  Features 

Provision  is  made  for  the  following  types  of  casualties  to  occur  within 

theaters : 

.  Killed/Missing  in  Action  (KIA) 

.  Wounded  in  Action  (WIA) 

.  Disease  and  Non-Battle  Injuries  (DNBI) 

Casualty  replacement  may  be  either  with  or  without  delay.  The  number  of 
casualties,  by  type,  is  computed  by  multiplying  a  set  of  population  inputs  by 
casualty-rate  factors,  also  inputs.  In  addition,  provision  is  made  for  direct 


"thruput"  of  special-case  casualty  data  associated  with  losses  and  damage  to 
ships  and  aircraft.  A  fraction  of  theater  WIA  and  DNBI  are  hospitalized  and 
the  balance  are  evacuated  to  CONUS,  with  provision  made  for  evacuation  delays. 
Sizes  of  the  fractions  depend  on  what  evacuation  policies  are  in  effect  at 
any  period.  The  model  will  accommodate  essentially  any  number  of  theaters, 
all  of  whose  evacuees  are  accumulated  in  CONUS.  Only  DNBI  originate  within 
CONUS.  Provision  is  made  for  Died-of-Wounds  (DOW)  within  theaters,  and  DOW 
and  disability  discharges  within  CONUS. 

Retums-to-Duty  (RTD)  are  computed  on  the  basis  of  mean  time  to  dis¬ 
charge  plus  pipeline  time  for  each  time  of  hospitalization  and  evacuation 
policy.  Theater  replacement  demand  is  defined  as  total  casualties  less  the 
sum  of  RTD’ s  for  each  period. 

Analytics  and  Algorithms 

It  will  be  convenient  to  begin  this  section  with  a  word  on  notation. 
Each  ten-day  time  period  will  be  denoted  by  a  subscript  ’t.'  Thus  t=l  is 


the  period  Pre-M  to  M-Day;  t=2  is  M-Day  to  M+10;  t=3  is  M+10  to  M+20;  etc. 

The  subscript  t=0  is  a  special  case,  reserved  for  Pre-M  population  and  patient 
inventories. 

This  model,  like  most  discrete-time  formulations,  involves  two 
types  of  variables;  stocks  and  flows.  They  are  best  defined  by  example. 

PATt  denotes  the  size  of  a  specific  patient  pool  at  the  end  of  period  't.' 

It  is  a  stock  measure.  WIAfc  denotes  the  number  of  Wounded  in  Action  during 
period  ’t.’  It  is  a  flow  measure.  Generally  speaking,  the  summation  of 


flows  produces  stocks.  As  a  simple  example,  assuming  all  WIA  and  DNBI  are 
hospitalized  and  survive,  and  ignoring  any  initial  patient  pool,  we  have: 

PATt  =  EWIA  +  ZDNBIt  -  ZRTDt> 

where  the  summations  are  taken  from  t=l  through  the  period  in  question. 

The  first  analytic  complication  arises  when  a  delay  in  casualty 
replacement  is  specified.  The  population  inputs  which  would  normally  be 
multiplied  by  casualty-rate  factors  cannot  be  used  directly  because  the 
replacement  delay  causes  the  actual  populations  to  fall  short  of  the  original 
objectives.  Casualties  must  therefore  be  computed  from  adjusted  populations, 
but  those  populations  are  in  turn  dependent  on  contemporaneous  casualties. 
What  emerges  is  the  need  for  a  simultaneous  equation  system.  The  basic 
relationships  are: 

TCASt  =  ICASt  +  k(ADJ  +  ADJt)/2  (1) 

ADJ  =  ADJ  +  (INT  -  INT  ,)  -  TCAS  +  TCAS  (2) 

t  t  t-i  t  t”X 

where 

TCAS  =  total  casualties  (KIA  +  WIA  +  DNBI) 

ICAS  =  input  casualties 

k  =  combined  casualty-rate  factor  (for  10-day  period) 

ADJ  =  adjusted  population 
INT  =  initial  population 
t  =  time  period 

x  =  length  of  casualty  replacement  delay  (in  periods) 


Equation  (1)  states  that  total  casualties  are  the  sum  of  input  and  computed 
casualties.  The  latter  are  determined  by  multiplying  an  average  of  beginning 
and  ending  adjusted  populations  by  a  combined  casualty-rate  factor.*  Once  the 
adjusted  populations  are  computed  from  the  simultaneous  system,  individual 
casualty-rate  factors  are  applied  to  determine  WIA,  KIA  and  DNBI. 

Equation  (2)  states  that  the  ending  adjusted  population,  ADJ^ ,  is 
determined  by  first  adding  to  its  beginning  value  the  amount  of  the  target 
increase,  (INT^  -  INT  ,  then  subtracting  the  current  period's  casualties, 
and  finally  adding  in  delayed  casualty  replacement. 

Substituting  Eq.  (1)  into  Eq .  (2)  and  simplifying,  the  following 
expression  emerges  for  computing  adjusted  populations: 

ADJt  =  £(l-k/2)  ADJt_1  +  (INTt  -  INT^)  -  ICASt  + 

k(ADJ  +  ADJ  )/2  +  ICAS  1  /(l+k/2) 

t-x-1  t-x  t-xl 

The  adjusted  populations  are  thereby  consistent  with  the  simultaneously- 
determined  losses  for  the  same  period. 

As  mentioned  earlier,  a  portion  of  theater  WIA  and  DNBI  are 
evacuated  to  CONUS  and  the  remainder  are  assigned  to  theater  hospitals. 

These  allocations  are  determined  by  a  set  of  input  percentages  which  reflect 
different  evacuation  policies  for  various  phases  of  the  scenario.  Provision 
for  evacuation  delays  is  also  provided  through  inputs.  Once  the  numbers  of 

*The  averaging  procedure  applies  to  all  periods  except  t=l.  There  it  is 
assumed  that  the  Pre-M  population  remains  constant  for  the  nine  days  pre¬ 
ceding  M-Day.  A  weighted  average  is  therefore  computed,  with  the  weights 
being  .9  and  .1. 


casualties  assigned  to  theater  and  CONUS  hospitals  are  known,  and  after 


allowances  for  DOW  and  disability  discharges  have  been  made,  the  next 
analytic  problem  is  that  of  computing  returns-to-duty  for  each  time 
period. 

Fortunately,  the  RTD  problem  is  easily  treated  within  a  general 
Markovian  framework.  To  elaborate,  assume  that  a  scenario  consists  of 
only  three  periods,  and  consider  the  following  matrix: 


Returns 


Each  non-zero  element  represents  the  probability  of,  or  fraction,  being 
returned  in  the  period  denoted  by  the  first  subscript,  given  that  hospitali¬ 
zation  occurred  in  the  period  denoted  by  the  second.  For  example,  p^  is 
the  fraction  of  those  returned  in  period  3  who  entered  in  period  2.  Note 

that  all  elements  to  the  right  of  the  diagonal  are  def initionally  equal  to 

h  h  h 

zero  since  returns  cannot  occur  prior  to  admissions.  Now  let  Nj ,  N^,  N^ 

represent  the  number  who  are  hospitalized  (and  who  also  survived)  in  period 

r 

1,  2,  and  3.  The  number  returned  in  each  period,  N  ,  is  then  computed  as: 

-v*; 

"5  ■  *1 A  +  »22"S 


K3  ’  »31NJ  *  P32M5  +  P33N' 


33 


These  sums  obey  the  rules  of  matrix  algebra;  i.e.,  in  this  case,  post¬ 
multiplication  of  a  matrix  (the  p^)  by  a  conforming  vector  (N*1) .  Since 
the  elements  of  the  vector,  hospitalizations,  have  been  computed  by  the 
model,  the  remaining  analytic  problem  is  to  quantify  the  ,  the  so-called 
"transition"  matrix. 

Determining  values  for  the  p  requires  that  certain  assumptions 

be  made.  First,  the  flow  of  hospitalizations  is  assumed  to  be  uniformly 

h 

distributed  over  any  given  ten-day  period.  In  other  words,  n"/10  arrive 
on  each  day  in  a  ten-day  period.  Since  input  data  are  provided  on  mean  times 
to  discharge  plus  pipeline  times,  one  approach  would  be  to  assume  that, 
given  for  example  a  mean  time  to  discharge  of  25  days  and  a  pipeline  time 
of  5  days,  all  persons  hospitalized  on  day  one  would  be  returned  on  day  31; 
those  admitted  on  day  2  would  be  returned  on  32;  etc.  While  greatly  simpli¬ 
fying  the  problem,  this  approach  does  not  seem  very  realistic.  It  assumes 
there  is  no  variability  around  the  mean  discharge  times.  A  better  approach 
is  to  make  an  explicit  assumption  about  the  variance,  and  about  the  proba¬ 
bility  distribution,  of  returns-to-duty .  This  model  assumes  returns  to  be 
normally  distributed  with  variance  equal  to  the  mean  discharge  time.  The 
assumption  of  equivalence  between  mean  and  variance  is  frequently  used  in 
reliability  and  maintainability  work  when  data  is  available  only  for  such 
parameters  as  mean-time-between-failures ,  mean-time-to-repair ,  etc.  And, 
results  of  the  joint  assumptions  of  normality  and  equivalence  of  mean  and 
variance  are  intuitively  reasonable  in  the  present  context.  For  example, 
using  the  same  data  hypothesized  above ,  approximately  two-thirds  of  hospi¬ 
talizations  on  day  1  would  be  returned  between  the  25th  and  35th  days,  and 
95%  between  the  20th  and  40th  days. 
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Once  a  statistical  distribution  of  returns  has  been  computed  for 
each  day  in  the  10-day  admissions  period,  they  must  be  combined  into  a 
single  distribution  (also  normal)  applicable  to  the  full  period.  Then, 
that  distribution  is  divided  into  its  ten-day  increments,  and  the  individual 
probabilities  in  each  increment  are  summed  to  finally  produce  the  required 
. .  All  of  these  computations  are  performed,  with  the  aid  of  the  IBM 
Scientific  ' ubrout  ne  Package,  as  part  of  a  separate  pre-processor.  They 
are  then  written  "into  files  in  transition  matrix  format  and  are  accessed 
directly  by  the  model. 

An  example  of  the  model's  output  appears  in  Section  IV  of  the  report.  By 
way  of  summary,  initial  populations  and  at-sea  casualties  are  provided  as  inputs. 
Other  KIA  and  WIA,  and  all  DNBI,  result  from  multiplying  input  factors  by 
adjusted  populations,  and  in  turn  are  multiplied  by  other  input  percentages  to 
compute  evacuations  and  DOW.  Procedures  used  for  computing  adjusted  populations, 
RTD,  and  patients  have  been  described  above,  with  the  exception  that  the  patients 
computation  also  adds  in  the  initial  patient  pool.  Finally,  net  replacement 
demand  for  each  period  is  total  casualties  less  RTD's.  The  summation  of  those 
results  is  total  casualty  replacement  demand.  Exhibit  A-l  displays  a  set  of 
casualty-rate  factors,  evacuation  percentages  and  policies,  discharge/pipeline 
times,  delays  and  other  data  which  were  provided  by  BUMED  and  are  presently  being 


used  in  the  submodel. 
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EXHIBIT  A-l 

SELECTED  INPUTS  AND  PARAMETER  VALUES* 

Casualty-Rate  Factors 

KIA:  Navy  with  Marines 

Amphibious  assault: 

Forward  3.0/1000/Day 
Support  0.4/1000/Day 

High  Intensity  Sustaining: 

Forward  1.3/1000/Day 
Support  0.2/1000/Day 

WIA:  Navy  with  Marines 

Amphibious  assault: 

Forward  10. 7/1000/Day 
Support  1.3/1000/Day 

High  Intensity  Sustaining: 

Forward  4.5/1000/Day 
Support  1.1/1000/Day 

All  other  KIA  &  WIA:  0  (thruput) 

DNBI :  1/1000/Day 


Evacuation  Policies 


Pre-M  to  M+10: 

60-day 

M+ll  to  M+40 : 

15-day 

M+41  to  M+70: 

30-day 

M+71  to  M+190: 

60-day 

Evacuation  Rates 

15-day  Policy 

30-day  Policy 

60-day  Policy 

WIA: 

.83 

.68 

.44 

DNBI: 

.38 

.20 

.096 

EXHIBIT  A-l  (cont’d.) 


Mean  Discharge  and  Pipeline  Times  (In  days) 

15-day  Policy  30-day  Policy 


Non-Evacuees 

WIA  -  Discharge:  8  15 

Pipeline:  1  1 

DNBI  -  Discharge :  5  8 

Pipeline:  1  1 

Evacuees 

WIA  -  Discharge:  64  85 

Pipeline:  15  15 

DNBI  -  Discharge:  33  57 

Pipeline:  15  15 

Within  CONUS 

DNBI  -  Discharge:  10  10 

Pipeline:  1  1 


Evacuation  Delays 

WIA:  5  days 

DNBI :  5  days 

Other  Losses  from  Hospitalizations 


Non-Evacuees 

DOW:  3% 

Evacuees 

DOW:  0 

Disab.  Discharge: 

WIA:  8.95% 

DNBI:  0.92% 


*Source:  Bureau  of  Medicine  and  Surgery 


♦Source:  Bureau  of  Medicine  and  Surgery 


f 


38 


♦ 


APPENDIX  B  (cont'd.) 


Notes : 

(1)  Requirements  for  physician  care  of  patients  retained  in  theater 
beyond  the  sixth  day  vary  with  the  evacuation  policy. 


15-day  Policy 

30-day  Policy 

60-day  Policy 

WIA/NBI 

.04 

.05 

.06 

Disease 

.017 

.022 

.022 

(2)  Requirements  for  physician  care  of  WIA/NBI  patients  in  the 
reconstruction  period  vary  with  the  evacuation  policy. 


15-day  Policy 
.056 


30-day  Policy 
.059 


60-day  Policy 
.061 


L 


APPENDIX  C 

COMPUTER  PROGRAM  DOCUMENTATION 


The  nine  separate  computer  programs  which  make  up  the  model  are 
documented  in  this  appendix.  Documentation  consists  of  a  brief  narrative 
description  of  each  program's  functions,  inputs,  outputs,  uses  and  options. 
Following  each  narrative  is  a  program  listing. 

In  terms  of  computer  processing,  each  of  the  programs  operates  inde¬ 
pendently.  Input  and  output  for  each  are  stored  in  files.  All  inter-program 
communication  is  accomplished  via  these  files.  An  advantage  of  this  type  of 
modular  processing  is  that  it  minimizes  the  effects  of  any  execution  interrupt 
If  the  interrupt  is  caused  by  machine  malfunction,  the  amount  of  re-running  is 
very  small.  User  interruptions  cause  no  problem  at  all  since  individual  execu¬ 
tion  times  are  short  and  easily  adaptable  to  scheduling.  Flexibility  is  main¬ 
tained  by  allowing  the  user  to  specify  which  files  are  to  be  used  and  to  be 
generated  at  each  program  execution. 

Each  program  is  identified  by  a  mnemonic  label.  The  order  in  which 
they  appear,  and  the  sections  of  the  overall  model  to  which  they  relate,  are 
as  follows: 


Supply: 

MMMSUPPRG 

Evacuation  Policy  &  Casualty-Related  Data: 

NUPOLPRG 

Casualty  Estimation: 

WMPREPROC 

MMMCASPRG 

MMMPRNPRG 

Medical  Requirements : 

MMMHOSPRG 

MEDPRGM 

Demand : 

MMMDEMPRG 

Comparisons  and  Graphs: 

MMMDSMODL 
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MMMSUPPRG 


This  program  creates  supply  tables. 


.  Table  ID,  TITLE,  TYPE  (OFFICER  or  ENLISTED) 

.  The  initial  active  force 

.  Selective  Reserve  personnel  by  time  period,  if  any 

.  Other  inactive  personnel  by  time  period,  if  any 

.  Trainee  data  (enlisted  supply  tables  only) 

.  Length  of  PRE-M  boot  camp  (wks) 

.  PRE-M  boot  input/wk 
.  PRE-M  population  in  "A"  schools 
.  PRE-M  population  in  boot  camps 
.  Recruit  attrition  rate  (%) 

.  POST-M-day  %  to  "A"  school  (%) 

.  Length  of  POST-M  boot  camp  (wks) 

.  Length  of  POST-M  "A"  schools  (wks) 

.  Capacity  of  boot  camps 
.  Number  of  POST-M  weeks  to  be  processed 
.  POST-M  boot  input  for  each  week 


.  A  file  containing  the  supply  tables  created 

.  Detailed  displays  of  the  supply  tables  created 

.  A  detailed  display  of  trainee  output  and  populations  covering 
the  number  of  weeks  specified 
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.  The  supply  file  is  an  input  for  the  demand-supply 
comparison  program  (MMMDSMODL) 

.  Supply  totals  may  be  used  by  the  casualty  program 

(MMMCASPRG)  to  compute  the  non-theater  exposed  populations 
on  which  casualties  are  based 


Displays  are  optional. 


MMMSUPPRG 
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C: 

C: 


C: 


C: 


C : 


1 

■-> 

12 

18 

20 

21 


20 

-> 

34 


MMMSUPPRG 

STRING 

STRING 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 


TRAINING/SUPPLY  PROGRAM 

DAY  (  27  )  <  6 ) ,  THETR<36),  ENOF  (  8  )  ,  THID(12),  DATE  ( 9  ) 

NAM ( 7 ) ( 7 ) ,  IFN< 15) ,  F I L I D  <  1 5 ' ,  NYN ( 3 ) 

SOUT  <27,7),  ACF <  27 ) ,  SLR  <  27 ) ,  OTN <  27  >  ,  TRP <  27 ) ,  TRN <  27 ) 
NDYS  <  27 ) ,  NFAC ( 27 ) ,  NDXL27) 

B I NP  <  40  > ,  BAT  <  40 ) ,  BOTP <  40 ) ,  A I NP  <  40 ) ,  TPOP ( 40 ) ,  COTP ( 40 ) 

<  ACF , SOUT  < 1 , 3 ) ) ,  <  SLR , SOUT (1,4)),  <  OTN , SOUT (1,5)) 

<  TRP , SOUT (1,6)),  <  TRN, SOUT < 1 , 7 ) ) 


DATA  DAY/'PRE-M' 

, 'M' ,  M+10 ' ,  'M+20" ,  ' M+30  ,  M+40 ,  ' M+50 '  , 'M+60' ,  M+70" ,  "M+80 ' 

,  ■'  M+90  •- ,  M+ 1 00  '  ,  M+ 1 1 0  ' ,  •-  M+ 1 20  ,  M+l  30  '  ,  '  M+ 1 40  " ,  '  M+ 1  50  ' ,  '  M+ 1 60  •' 

,  '  M+ 1 70  ' ,  •' M+ 1 80  " ,  '  M+  1  90  '  / 

DATA  NAM  /  '  SUPPLY '  ,  "  TR  POP  '  ,  ACT  F  ' ,  ■"  SFL  R  '  ,  OTH  I  '  ,  "  T  01  IT  ' ,  TRA I NFE  '  ' 

DATA  ISW/5/,  ILM/27/ ,  NBZZ/13/ 

FORMAT  < / / ) 

FORMAT  <6X,  15  <  ' _ '  )  /  ) 

FORMAT  < / 1 5 , 2 X , S36 , 2X , SS , 2 X , S 1 2 , A6 ) 

FORMAT  < / /8X , S12 , 3X , S36 , 5X , S8 ) 

FORMAT ( // 10X  »  'TRAINING  PROGRAM', 14,  '  WEEKS', 14X,A9//> 

FORMAT < '  TIME  BOOT  BOOT  BOOT  BOOT  TO  TO  A-SCH  A-SCH  TOT' 

,  '  TOT  CUM'/  <  WKS )  I MPT  ATT  OTPT  POP  FLT  A-SCH' 

, OTPT  POP  POP  OTPT  OTPT'//) 

FORMAT< 14, IS, 15, 16, 17, 16,417, 16, 17) 

FORMAT  < / 4 X , S9 , 5 X , S 1 2 , 4  X , S8 , 2 X , S36 / ) 

FORMAT  < / 1 5X , 1 4  <  2X , A6 ) ) 

FORMAT  < //4X,S7, 4X,  1418) 

FORMAT  <  /6X,S7, 2X • 1413) 


36  FORMAT  < /8X , S7 ,  1418) 

WRITE  (1,1) 

ACCEPT  "  PUN  DATE  =  ",  DATE,  "  TO  =  ",  FT LID;  NWRT  =  O 

ACCEPT  "  SUPPLY  OUTPUT  9  ",  NVN?  IF  <  NYN, EQ.  "N ' )  GO  TO  120 

ACOEPT  "  OUTPUT  FILE  =  " , TFN;  NWRT  =  1 

OPEN  <4, IFN, OUTPUT, BINARY) ;  WRITE  (4)  FTIID,  HATE: 

SUPPLY  TOTALS  OUTFUT  '•  1 


WR  T  TE  <  1 , 2 ) 


1  20 

NWRT  2 

=  o; 

ACCEPT  " 

IF  <  NYN. 

EQ .  N  ) 

GO  TO  14 

ACCEPT  " 

FILE 

=  ",  IFN? 

140 

NDX < 1 ) 

=  1 : 

NFAC  <  1  ) 

ACCEPT  " 

SUPPLY 

data  FILE 

150 

DO  152 

1=1 . ILM 

DO  152 

.1=1 ,7 

152 

SOUT ( I 

,  ,J  )  =  O 

OPEN  <3,1  FN ,  OUTPI  JT  )  ; 

l 

' , IFN;  OPEN  <7, IFN) 


NYN 

NWRT2  =  1 


READ  <7,END=500>  THID,  THETR,  FNOF ,  NF'D;  IF  (NPD.EO.O)  GO  TO  ISO 
PFAD  ( 7 , END=500 )  <  NDYS <  N ) ,  N=2, NF  D+1  > ,  ACF < 1 ) 

NFIL  =  NFIL  +  l;  NF'D  =  NF'D  +  1 

DO  158  N=2 , NPD 

NDX(N)  =  2  +  NDYS<N)/10 
153  NFAC < N )  =  NDX(N)  -  NDX(N-l) 

I  TP  =  NDX(NPD)  -  I?  KPD  =  ILM  -  NPD 

WRITE  (1,12)  NFIL,  THETR,  ENOF,  THID,  DAY  < I TP+ 1 ) 


MMMSUPPRG 


43 


READ 

(7) 

NV? 

IF 

(NV.GT.O) 

READ 

(7) 

(OTN(K) , 

K=KPD+2, 

ILM) 

READ 

<  7 ) 

NV? 

IF 

(NV.GT.O) 

READ 

(7) 

(TRP(K) , 

K=KPD+2, 

ILM) 

READ 

(7) 

NV? 

IF 

(NV.GT.O) 

READ 

(7) 

( TRN ( K ) , 

K=KPD+2, 

ILM) 

NN  =  0 

DO  162  KK=KPD-+3, ILM 


K  =  ILM  -  NN?  NN  =  NN  +  1 

162  TRN(K)  =  TPN(K)  -  TRN(K-1 ) 

CALL  PSPRD  ( KPD »  NPD  >  NDX , NF AC ,  SLR ) 

CALL  PSPRD  < KPD, NPD, NDX, NF AC, OTN) 

CALL  PSPRD  ( KPD, NPD,  NDX  , NFAC, TRP ) 

CALL  PSPRD  (KPD, NPD, NDX, NFAC, TRN) 

DO  168  1=2, ITP+1 

ACF ( I )  =  ACF ( 1 ) ;  SLR ( I )  =  SLR  < I )  +  SLR ( I - 1 ) 

TRP ( I )  =  TRP  < I >  +  TRP  < I  —  l ) ;  TPN(I)  =  TRN ( I )  +  TRN(I-l) 

1 68  OTN  (  I )  =  OTN  (  I  )  +  OTN  (  I  - 1  ) 

IF  (ENOF.EQ.  OFFICERS  '  >  GO  TO  350 

130  READ  (7)  INTR?  IF  (INTR.EQ.O)  GO  TO  350 

READ  ( 7 )  LP i  B I NP ( 1 ) ,  APOP ,  BPOP .  COTP (  1  >  ,  ATT ,  APC  T 

,LB,  LA,  ROPMAX »  LF1,  LF2,  NWK -  (BTNP(N),  N=3,NWK+2> 

ATT  =  ATT/100?  APCT  =  APCT/100?  FPCT  =  1-AF’CT?  BF'RN  =  0 

ACCEPT  ■’  COMPUTE  TRAINING  OUTPUT  ’•  ",  NYN 
IF  (NYN.  EC.  N" )  GO  TO  350 

ACCEPT  "  PRINT  DETAILED  TRAINING  OUTPUT  ">  ",  NYN 
IF  (NYN. EQ.N')  GO  TO  250 

ACCEPT  " . " , NYN?  BPRN  =  1?  WRITE  (1,18)  THID,  THETR,  ENOF 
WRITE  (1,20)  NWK,  DATE?  WRITE  (1,21) 

250  LF  =  LF1 

IF  (  F’OPMAX  .  FO.  0  >  POPMAX  =  1E10 

IF  (  BI  NP  (  1  )  .  EO .  0 )  BINP(I)  =  BPOP/ <  I.P*  <  1  -ATT  )  ) 

BAT  (  1  )  =  ROUND  (  ATT*BINP(  1  )  )  ?  BOTPM)  =  B I  NP  (  1  )  -  BAT  (  1  ) 

AINP ( 1 >  =  AF’CT*BOTP( 1 ) ?  TPOP(l)  =  APOP  +  BPOR 

DO  268  N=2, NWK+2 

BAT ( N)  =  POUND  ( ATT  *B I NP ( N ) ) 

BOTP  (  N  )  =  BINP(MAX  (N-LB,  1  )  )  -  BAT  (  MAX  <  N-l.B,  1  )  ) 

IF  (N.E0.2)  BOTP ( N )  =  <  LF-LB )  *  < BTNP ( D -BAT M  ) ? 

IF  (N-LB. EG. 2)  BOTP ( N )  =  BINP ( l )  -  BAT ( 1 ) 

BPOP  =  BPOP  +  BINP ( N )  -  BOTP ( N )  -  BAT ( N ) 

IF  ( BPOP. LE. POPMAX )  GO  TO  264 

BINP(N)  =  BINP(N)  -  ( BPOP— POPMAX ) / ( 1 —ATT ) 

BAT ( N )  =  ATT  *BINP ( N ) ?  BPOP  =  POPMAY 

264  IF  (N.GT.S)  LF  =  I.F2 

FLT  =  FPCT *BOTP ( MAX  <  N-LF ,  1 ) ) :  AINP(N)  =  APCT *BOTP ( N ) 

AOF'T  =  A  INF’ (MAX  (N-LA,  1  )  ) 

APOP  =  APOP  +  AINF’(N)  -  AOPT:  TPOP(N)  -  APOP  +  BPOP 

TOTP  =  AOPT  +  FLT?  COTP(N)  =  C0TP<N-1 >  +  TOTP 

IF  (BPRN.GT.O?  WRITE  (1,22)  N-2*  BINF’(N),  BAT  ( N )  ,  BOTP  ( N  > 

,  BPOP ,  FLT,  AINF’(N),  AOPT,  APOP,  TPOF'(N),  TOTP,  COTP(N) 

263  CONTINUE 

WRITE  (1,1)?  ACCEPT  NYN 

TRP  < 1  )  =  COTP ( 1 ) ?  TRN ( 1 )  =  TPOP ( l ) 

CALL  XTRP  (NWK , COTP, TRP) ?  CALL  XTRP  (NWK, TPOP. TRN) 

GO  TO  350 

300  READ  (7)  NV?  IF  (NV.GT.O)  READ  (7)  (RLR(K),  K=KPD+2,ILM) 

READ  (7)  NV?  IF  (NV.GT.O)  READ  (7)  (OTN(K),  K=KPD+2, ILM) 

CALL  PSPRD  (KPD, NPD, NDX, NF AC, SLR) 

CALL  PSPRD  (KPD, NPD, NDX, NFAC, OTN) 

DO  328  1=2, ITP+1 


MMMSUPPRG 


ACF  ( I  >  =  ACF(l);  SLR  ( I )  =  SLR  (  I  )  +  SLR(I-l)  44 

323  OTN ( I >  =  OTN(I)  +  OTN(I-l) 

350  DO  353  1=1.1 TP+ 1 

DO  352  -J=3.6 

352  SOUT  (1.2)  =  SOUT  (1,2)  +  SOUT  ( I ,  J ) 

353  SOUTt  I.  1)  =  SOUK  1.2)  +  SOUK  I.  7) 

400  CONTINUE 

IF  (NWRT2.EQ.1)  WRITE  (3,40)  DATE,  THETR,  ENOF,  (SOUT(I.l),  1=1,27) 

40  FORMAT  (  IX,  "  "  ' ,  A9 ,  -  "  ' ,  1  X  ,  ,  S36,  '  "  ',  IX,  S3,  "  “  ' ,  1 12/ <  SX  ,  71  10  /  )  ) 

IF  (NWRT.EQ.l)  WRITE  (4)  ISW,  DATE,  THID,  THETR,  ENOF,  TTP,  SOUT 

NPD  =  14 
DO  402  N= 1 , NPD 
IF  (N.LT. 12)  NDX (N)  =  N 
IF  (N.OT.ll)  NDX(N)  =  N  +  2-MN-lt) 

402  CONTINUE 

ACCEPT  "  PRINT  SUPPLY  DETAIL  ''  ”,  NYN;  IF  ( NYN.  EQ.  'N "  )  GO  TO  150 
ACCEPT  "  STANDARD  PRINT  ?  ”,  NYN;  IF  (NYN. EO.  ' Y" )  GO  TO  410 

ACCEPT  ”  #  OF  PERIODS  TO  PRINT  =  ”,  NPD;  NPD  =  NPD  +  1 

ACCEPT  "  LIST  PERIOD! S):  ",  (NDYS(N) ,  N=2,NPD);  NDX(l)  =  1 
DO  408  N=2, NPD 

4 OS  NDX(N)  =  2  +  NDYS  <  N ) / 1 0 

410  WRITE  (1,2);  ACCEPT  “ . " ,  NYN 

NT  =  0;  WRITE  (1,1) 

420  NB  =  NT  +  l;  NT  =  MIN  ( NB+NBZZ , NPD ) 

WRITE  (1.30)  DATE,  THID,  ENOF,  THETR 
WRITE  (1,32)  ( DAY ( NDX ( N) ) ,  N=NB. NT ) 

DO  423  U=l,V 

GO  TO  (  424, 425.  426, 426, 426, 426, 425)  ,  .J 
4  24  WRITE  (1.34)  NAM(.J),  ( SOUT  ( NDX  ( N ),  .J  )  ,  N=NB ,  NT  )  ;  GO  TO  428 

4  25  WRITE  (1*35)  NAM(.J)  ,  (  SOI.IT  (  NDX  <  N  )  ,  .J  )  •  M=NB,  NT  )  ;  GO  TO  428 

4 26  WR I TF  ( 1 . 36 )  NAM ( . J  ) ,  ( SOUT ( NO X ( N  > , J ) ,  N=NR , NT ) 

423  CONTINUE 

WRITE  (1.2);  IF  (NT.LT.NPD)  GO  TO  420 

GO  T  O  1 50 

500  CLOSE  (7);  CLOSE  (4) ;  CLOSE! 3) ;  DISPLAY  NFIL,  "  RECORD ( S )  PROCESSED” 
END 


SUBROUTINE  XTRF  (NWK.W), FD) 

DIMENSION  WK ( * ) ,  P  D ( * ) 

PCH  2)  =  WH  (  ,?);  I  =  10 

DO  1S{?  N=  2 .  NW1+  2 
K  =  7  *  ( N  —  2 )  +  1 

I F  (  F+6-  I  )  1  ,  1  50 ,110 

110  I F  ( •<  -  I  )  150,1  50 ,  1  SO 

150  BAS  =  W1(N);  TOP  =  WK(N+1);  FAC  =  ( TOP-BAS) n 
PD (3+1/10)  =  TOP  -  ( F+6- I ) *FAC 
ISO  I  =  I  +  10 
1 ?S  CONTINUE 
END 

SUBROUTINE  PSF'RD  ( KPD,  NPD,  NDX  ,  NFAC ,  FINP  > 

DIMENSION  NDX ( * ) ,  NEAC ( * ) ,  FINF(*> 

M  =  1 


NUPOLPRG 


Function 

This  program  creates  a  file  containing  all  the  data  associated  with 
the  policies  utilized  during  a  scenario's  time  frame. 

Input 

.  The  policy  to  be  used  in  each  time  period 
.  The  W1A  &  DNBI  evacuation  rates  for  each  policy 
.  The  WIA  &  DNBI  mean  RTD's  for  each  policy 

Output 

A  binary  file  containing: 

.  Time  phased  lists  of  policy  identifiers  and  evacuation  rates 
.  WIA  &  DNBI  matrices  of  percentage  RTD's  for  each  time  period 
.  Lists  of  daily  percentage  RTD’s  for  each  policy 

Us_e 

.  Input  to  the  casualty  program  (MMMCASPRG) 

.  Input  to  the  hospital  program  (MMMHOSPRG) 

Separate  policy  files  are  generated  for  theaters  and  non-theaters 


IMUPOLPRG 


47 


STRING  IFN  (  15  > ,  MFNU5>.  NFN  (15),  LFNU5I,  NYN  (  3  ) 

D I MENS I ON  PM  < 77 ,27),  I N 1 77 ) ,  SO ( 27  > ,  PROP (27) 

DIMENSION  MF'LA (  27  )  ,  MFOL  <  26  ) 

DIMENSION  RWFV<3> ,  RDEVf 3 ) ,  IRTD(3,2),  RTDM <2, 10) 

ECU  I VAL  ENCF  (  MPOI. ,  MF'LA  (  2  >  > 

DATA  ILM/ 27/ ,  CN/.1/ 

1  FORMAT (//) 

6  FORMAT  (  2 1 3  / 26 1  3/6 F7 .  2 ,  4  >' ,  1  2 1 3 ) 

WRITE  (  I  , I  ) 

ACCEPT  "  POLICY  INPUT  =  " , IFN:  OPEN  (3, IFN) 

READ  (3)  NTH  i  RWFV,  RDEV,  JNUM,  (  F'TDh  (  1  ,  J  >  ,  RTDM  (  2 ,  ..I )  ,  ..1=1  ,  JNUM  ) 

READ  (3)  NO:  NT  -  O 

DO  1 63  N=1,NV 
NN  =  NT  +  1 

READ  <3)  NT 0 ,  IMPl  ?  NT  =  2  +  NTO/10 

DO  16S  M=NN  ,  NT 
MF'LA  CM)  =  I  MF'l 
16S  CONTINUE 

READ  (3)  I  FTP:  Cl OSF  (?) 

ACCEPT  "  POLICY  FTLF  =  ”,  MFN;  OPEN  (  4 ,  MFN ,  01. 1TPI.  IT ,  P I  NARY  > 

C  ACCEPT  "  POLICY  FILE  =  ”,  MFN;  OPEN  ( 4 , MFN , OUTPUT ) 

•JNM  =  MIN  ( .JNUM ,  6  ) 

WRITE  (4)  NTH,  UNM,  MF'OL ,  RWFV,  RDEV ,  I FTD 
C  WRITE  (4,6)  NTH,  JNM,  MF'OL,  RWFV,  RDFV,  I RTD 

DO  1  33  J- 1  ,  .JNM 

M  =  RTDM  <1,J>;  S  =  RTDM  (  2  >  J  )  ?  CALI.  POLICY  (  1  ,  1 ,  M ,  9 ,  PROP  > 

133  CONTINUE 

DO  243  K= 3  ,  2 

I F  (  MF'LA  (  1  )  .  FO .  0  )  00  TO  220 

M  =  RTDM  (1,1  RTD  (  MF'LA  (  1  )  ,  K  )  )  ?  S  =  RTDM  •  2  •  I  RTD  ( MF'l.  AU).I  )  > 

CALL  F'OL  I CY  (  7. ,  0 ,  M ,  S ,  F'ROR  > 

DO  208  J=2» IL  M 

203  PM  (  1  ,  ..I )  =  PROP  ( J- 1  ) 

220  M  =  0 

DO  238  1=2, I LM 

ML  =  M 

I F  (  MF'LA  (  I  ) .  EQ .  0  )  GO  TO  238 

M  =  RTDM  (1,1  RTD  <  MF'LA  (  I  )  ,  L  )  )  ;  S  =  RTDM  (  2 ,  I  RTD  (  MF'L.  A  (  I  )  ,  K  >  ) 

IF  (M.NE.ML)  CALL  POLICY  < 2 , 1 , M , S , PROP ) 

DO  238  J=  I ,  I  L.M 

RM ( I , J )  =  PROP  < J+ 1  - 1 ' 

233  CONTINUE 

CALL  PIJTRMP  (RM,  ILM) 

243  CONTINUE 

IF  ( JNM. EO, JNUM)  00  TO  238 

M  =  RTDM (  1  ,  .JNM-t-1  ) ;  S  =  RTDM  (  2, -JNM+ 1  ) ;  IF  (M.EQ.O)  GO  TO  270 

CALL  POLICY  ( 2 , 0 , M , S , PROP ) 

DO  258  J=2, ILM 

258  RM ( 1 , J )  =  PROP ( J- 1 ) 


r 
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270  M  =  RTDM( 1 , JNM+2) ;  c,  = 
CAL  L  POL  ICV  (  2 ,  1 ,  M ,  S ,  PROP  ) 

DO  272  1=2, I LM 

DO  272  0=1,  It  M 

27 2  RM  (I,J)  =  PROP  0.1+  l  - 1  ) 

280  CAL  L  F'UTRMB  <  RM ,  I L  M  ) 

288  CLOSE"  (4) 

ENn 

SUBROUTINE  PtJTEMR  (RM,II.M> 

D I  MENS  f  ON  RM  (•».*),  RMAT  ( 7 


RTDM( 


) 


•JNM+2  >  ; 


1  0  FORMAT  (  I ,  8F7 .  4 , 1  7y  ,  S-F7.  4  ,  )  7  x  .  9F7 .  4  > 

DO  298  I=J,JLM 
DO  298  0=1,1 

v::‘  RMAT  (  I  *  (  I  - 1  )  /  '•  ■+  .  1 -  FT1  ( .  1 ,  j  ) 

WPITF  (4)  RMAT 

RETURN 

END 


bUPRi.n  n  I NE  POL  ICV  (  L  SW I <;W ,  MM ,  9 ,  PROP  , 

D I  MEN'?,  1 1  iN  PR  <  2 70  )  ,  p<  270  )  ,  F'ROp  ;  «.  \ 

M  =  MM  +  1 

I D!  =  MIN  (M- 1,4*9)  +  1;  IFt  =  M-IDI  • 

no  200  1=1 , j m 

F’(I)  =  RFNf  (  TDL-I+  .5)  /’8)  -  PFN'  (  1  DL-I  -  5)/* 
IE  (I.LT.IDL )  F ( 2* IDL - I )  -P(I) 

2'->5  F'TOT  =  F'TOT  +  2*F' (  I  > 

F'TOT  =  F'TOT  -  P  (IDL) 

IF  ( LSW . E 0 . 2 )  GO  T 0  220 

CALL  D I SFL  ( M , I DL , I B , P ) ;  R£ TURN 

220  IP  (ISW.FO.J)  GO  TO  230 


IB  =  ( 

:>*, 

LT  =  2*<IDL- 

DO  228 

•J 

=  1  >  2*  (  I  DL.—  1  ) 

F'R  ( .  1 ) 

= 

0 

DO  226 

K 

=0+1 , 2* I DL - 1 

PFU.n 

= 

F'R  ( .J  )  +  p  (  L  ) 

PTOT  2 

= 

F'TOT 2  +  F'R  <  0  ) 

GO  TO  2 DC) 


280  DO  238  0=1, 2* IDL +8 

OB  =  MAX  (1,0-9 >5  PR ( IB+O)  =  0?  OT  = 

IE  (O.GT.IDL+4)  GO  TO  284 

DO  232  K=OB,OT 

232  PR (IB+O)  =  PR (IB+O)  +  p(K) 

00  TO 

234  PR  ( I B+0 )  =  F'R  ( I B+2*  I DL+9-0 ) 

238  PT0T2  =  F'TOT  2  +  PF;(IB+0) 

LT  =  IB  +  2* IDL  +  8 

250  F'TOT  =  0 

DISPLAY  PT0T2,  IB+1  ,  (F'RdP+O),  .1=  1 , 2*IDI  +P )  • 
DO  258  L=1 , LT , IO  '  "  " 

LR  =  l+L/105  PROP ( LR )  =  0 

IF  (L+9.LE.IB)  GO  TO  258 

KT  =  MIN  <  L+9 , LT ) 5  KB  =  MAX  <L,IB+1> 

DO  252  K=KB, KT 

252  PROB(LR)  =  PROB(LR)  +  PR(K) 

F'ROB(LR)  =  PROB(LR)  /  PT0T2 
PTOT  =  PTOT  +  PROB(LR) 


IF  (M.EO.O) 


F'TOT  =  O’,  F'TOT 


MIN  (..I,  IDL +  4  ) 


DISPLAY  - 


r  j  k> 
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258  CONTINUE  7 

DO  262  L=LR+1,27 

262  PROP ( L  >  =0 

C:  DISPLAY  ",  PTOT;  DISPLAY  "  •' 

RETURN 

END 

FUNCTION  PFN  (X) 

AX=AP5 ( X ) 

T= 1 . O / ( 1 . 0+ . 23 1 64 1 9* AX ) 

0=0. 3 9 S 9 4  2 S  *  F  X  P ( -X*X /2. O) 

P=1  .  O— El*  T  *  (  (  (  (  1 .  330274*T-1 . 92 1  256  >  *T+  1 . 7S1  479  >*T-0. 356563S  >  *-T+0, 9)  ~  j  3  \ 
PFN  =  F;  IF  (X.LT.O)  PFN!  =  1 . 0-F 

RETURN 
FND 

SUBROUT I NE  D I SPL  ( M , I DL , I P , PR ) 

D I MENS I ON  PR(*)>  P ( 27  0 ) 

10  FORMAT (416/) 

20  FORMAT ( 1  OF 9. 4  > 

UT  =  2* ■'  IDL  -1 > 

P < 1 >  =  PR  <  1  ) 

DO  112  J=2,  JT 

112  P  <  U )  =  PR  (  J )  +  F'(J-1> 

WRITF  (4'  IP+1,  JT-*-',  0.0,  (pot),  J=].JT).  1.0 

C :  C  WRITE  (4-10)  IP+t,  .IT-*' 

C :  C  WR I TE  (4, 20  )  0 .  0 ,  (  F  ( .J  )  ,  J=  1  ,  .JT  1  ,  1.0 

RETURN 
END 

SURROUT I  NE  F'UTRM  <  RM ,  I L  M  ) 

DIMENSION  PM  (*,*■) 

C: 

1 0  FORMAT  (IS,  9F7 . 4  ,  1 7X  ,  9F7 . 4  ,  1 7  X  ,  9F7 .  A  ) 

C: 

DO  299  1=2,  I  L.M 

NN  =  -1 
DO  27 Ei  J=1,I 

IF  ( RM ( J , I ) . EO . 0 )  00  TO  279 

IF  (NN.LT.O)  NN  =  J  -  1 

NT  =  J 
278  CONTINUE 

ZN  =  I  +  CN 

IF  (NN.OE.O)  1 , U  TO  S’',71.1 

NN  =  I  -  l;  NT  =  I 

90  WRITE  (4,10)  NN,  (RM(J,I>,  .J=NN+ 1,1) 

99  CONTINUE 

DO  302  1=1, ILM 

DO  302  J=1 , ILM 

302  RM ( I , J )  =  0.0 
CN  =  CN  +  . 1 
END 
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WMPREPROC 


Function 

This  program  creates  a  file  containing  a  data  set  for  each  theater 
described. 

Input 

.  Theater  ID,  TITLE,  TYPE  (OFFICER  or  ENLISTED) 

.  PRE-M  population  and  patient  pool 
.  Population  by  time  period 

.  Personnel  killed  in  action,  and/or  wounded  in  action  and  billet 
losses  for  each  time  period  in  which  they  occur 

.  WIA  &  DNBI  evacuation  delays 

.  Casualty  replacement  delay 

.  KIA,  WIA,  DNBI,  DOW,  DISCHARGE  rates  for  specified  time  periods 

Output 

A  data  set  for  each  set  of  inputs 

Use 


Input  to  the  casualty  program  (MMMCASPRG) 


WMPREPROC 


WMPREPROC  PROCESSES  RAW  INPUT  DATA  FOR  CASUALTY  MODEL 


STRING 

STRING 

DIMENSION 

DIMENSION 

DIMENSION 


DAY(27>(6>,  IFN(15),  MEN<15>,  PFN(15) 

THETR<36>,  ENOF(S).  THIDU2),  DATE  ( 9 )  ,  FILID< 15) 

NDXC27),  NFAC  <  26 ) ,  NDYS<27> 

POUT (26, 6),  POP (26).  P INC (26),  TLl(2i),  TL2<26),  BIL<26> 
RPP ( 26  7  3 ) i  RDW ( 26 13),  DIS(3>,  DIE(S) 


EQUIVALENCE  (P  INC,  POUT),  < TL1 , POUT < 1 , 2 ) > ,  <  Tl.  2 ,  POUT  <  1 , 3  )  ) 

EQUIVALENCE  < BTL, POUT < 1 , 4 > ) ,  ( RDW, POUT ( 1 , 4 ) ) 

DATA  DAY / • PRE-M " 

,  -  M  •' ,  "  M+10  ,  •"  M+20 "'  ,  "M+30 " ,  M+40"  ,  "M+50 " ,  "M+60  " ,  "M+70  " ,  M+80 
,  M+SO"  ,  "M+lOO" ,  "M+l  10  ' ,  "M+12'O  '  .  "M+130 "  ,  M  +  l  40  ,  M+150 "  -  M+l  AO 
,  "M+l  70'" ,  "M+  ISO"  ,  "M+l  SO  "  ,  M+20O  "  ,  "M+210  '  -  "M+220  ,  M+2S0  ,  M+24C 
DATA  DAY ( 27 ) / " M+250 " / 

DATA  NFAC/ 26* 1 / ,  TLM/27/ 


2  FORMAT  <  /  1  2  X  ,  7  (  _ _ _ •" )  ) 

lO  FORMAT  (  /  /  /  3X  ,  "RECORD  #  " ,  20X  ,  "THFATER  " ,  2SX  ,  ■"  ID  " ,  2X  ,  "l  AST  DAY  /  ) 
12  FORMAT (IS, IX, S36, 1 X , S3, ?X , A1 2, 4X . A6 ) 

1  S  FORMAT  <  /  /  3  X  ,  S 1 5 ,  ,  1  X  ,  S 1 5  -  1 4 ,  RECORDS "  ,  2  X  ,  38 ///) 

40  FORMAT ( 2 1 2 , SS , 512,342, I4/2X , 213, 314, F4.  1  ) 

42  F0RMATf4(2X,STS/?X,Sl8/i0X,STS) ) 

44  FORMAT  <  6  (  2X  ,  SFS .  5/2X  ,  *F8 .  5  /  1  OX  ,  3F3 .5)1 


WRITE  (1,2) 

ACCEPT  »  FFE-PROCFSS  RUNDATE  =  ",  DATE 

ACORPT  "  OUTPUT  DATA  FTIR  =  ,  MFN ,  "  ID  ^  ",  F  Tl.  T  D 

OPEN  (4, NFN, OUTPUT, BINARY);  WRITE  (4)  F 1 1  10,  DATF 

ACCEPT  "  TNPUT  DATA  FTLE  =  ",  IFN;  OPEN  (7,IFN) 

WRITE  (1,10) 

!<«>  no  10  2  T  =  1  ,  I  LM—  1 
POP ( T )  =0 
no  102  N-1,6 

102  pcil  IT  (  I,  N)  =  0 


)  =  O:  READ  <7,FND=SOO)  ISW,  TMID, THFTR, ENOF ,  NFTi ,  (NDYS(N),  N=1 

DO  138  N=  1  ,  NF'D 

NDX ( N )  =  1  +  NDYS ( N ) / 1 O*  NFAC ( N )  =  ND  X ( N )  -  1 

133  K  =  NOX(N) 

I  TP  =  NDX(NPD);  PPD  =  ILM  -  NF'D 


READ 

(  7  ) 

MDW, 

MOD,  IDL,  F'ATO, 

PREM, 

AV 

F  FAD 

(  7  ) 

NV; 

TF  (NV.GT.O) 

READ 

(7) 

( POP ( P ) , 

P=PPD,  II.M- 1  ) 

READ 

(7) 

NV; 

IF  ( NV . GT . 0 ) 

READ 

(7) 

(Tl.l  <K>  , 

P=PF'D ,  ILM-1  ) 

IF  (  I 

5W. 

EQ.  1  ) 

GO  TO  150 

READ 

<  7  ) 

NV; 

IF  ( NV . GT . 0  > 

READ 

(7) 

<  TI.2  ( P  )  , 

P=PPD, ILM-1 ) 

READ 

(7) 

NV; 

IF  (NV.GT.O) 

READ 

(7) 

(BILIK), 

P=PPD , ILM-1 ) 

1=10  PINC(PFD)  =  POP ( PPD )  -  PREM 
DO  153  K=KPD+l , ILM-1 

P I NC ( K  >  =  POP ( K )  -  POP ( K - 1 ) 

153  POP ( K— 1 )  =  O 
PPD  =  PPD  -  l 

CALL  PSPRD  ( PPD, NPD, NDX, NFAC, PINO 


:>  •-  / 


NF'D ) 
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CALL  PSPRD  (KPD, NPD, NDX, NFAC, TL1 ) 

IF  (ISW.EQ.l)  GO  TO  190 

CALL  PSPRD  ( KPD >  NPD,  NDX , NFAC, TL2 ) 

CALL  PSPRD  (KPD,  NPD,  NDX,  NFAC,  BID 

READ  (7)  NV;  NT  =  O 

do  i  33  N=  1  ,  NV 
NN  =  NT  +  1 

READ  (7)  NTO,  RPK,  RPW,  RPD,  EDW 
NT  =  1  +  NTO/tO 
DO  133  M-NN, NT 

RFP(M,1)  =  RPK;  RPP(M,2)  =  RPW;  RPP(M,3)  =  RPD 
133  RDW(M, 3)  =  EDW 
GO  TO  400 

190  READ  (7)  NV;  NT  =  0 

DO  193  N=1 , NV 

NN  =  NT  +  1;  READ  (7)  NTO,  RPD,  DIE,  DIS;  NT  =  1  +  NT0/10 
DO  193  M=NN , NT 
TL2(M>  =  RPD 
DO  193  h:  =  1 , 3 

RDW(M, K )  =  DIE(K) 

193  RPP (  M ,  K )  =  DIS(K) 

400  IF  (  ITP.GE.  Il.M-1  )  GO  TO  410 
DO  403  .1=  t ,  6 

DO  403  I=ITP+1, ILM-1 
■V>3  POUT  ( I ,  .J )  =  0 
41.0  NFIL  =  NFIL  +  1 

WRITE  (1,12)  NFIL,  THETR,  ENOF,  THTD,  DAY ( ITP+1 > 

WRITE  (4)  I3W,  I ZER ,  DATE,  THID,  THETR,  ENOF,  I TP,  RATO,  F'REM 
,MDW,  ODD,  I DLY ,  AV 
WRITE  ( 4 )  POUT,  RPP 
GO  TO  1 00 

900  WRITE  (1,13)  MFN,  FILID-  NFIL,  DATE;  CLOSE ( 7 ) ;  CLOSE  (4) 

WRITE  (1,2) 

FNO 

SI  IBROI  IT  T  NE  RS  PRD  ( LPD ,  NPD ,  NDX  ,  NFAC ,  E 1 NP  ) 

DIMENSION  NDX(ft),  NFAC  (  *  )  ,  FINF'f*) 

M  -  O 

DO  193  N= 1 , NPD 

FNUM  =  FTNP  (KF'D+N) 

190  M  =  M  ♦  J;  IF  (M.EO.NDX (N) )  GO  TO  190 

FINP(M)  =  FINP(LPD+N) /NFAC(N) :  FNUM  =  FNI IM  -  FINP(M);  GO  TO 

190  FINP(M)  =  FNUM 
193  CONTINUE 
RETURN 
END 


MMMCASPRG 


Function 


Computes  time  phased  casualty  and  replacement  data  for  each  theater 
and  non-theater  data  set. 

Input 

.  Pre-processed  data  set  files 
.  Policy  file(s)  -  applicable  to  each  data  set 
.  Supply  file  (non-theater  only)  -  optional 

Output 

A  file  containing  casualty  tables  for  each  data  set  selected. 


Use 

.  Input  to  the  printing/aggregating  program  (MMMPRNPRG) 
.  Input  to  the  demand  program  (MMMDEMPRG) 


Options 


.  Selection  of  specific  data  sets  from  the  input  file  -  used  for 

specifying  which  theaters  contribute  their  evacuees  to  a  particular 
non-theater 


MMMCASPRG 
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C: 

C: 


Cs 


C* 


C  i 


MMMCASPRG  MMM  CASUALTY  MODEL 


STRING  DAY<27>(6),  THETRC36),  EN0E(3>,  THID<12>,  FILID(15> 

STRING  DATE  <  9 )  ,  RUNDATE  ( 9 )  ,  MFN(15>,  LFNU5),  PFN<15> 

STRING  THSUP<36>,  ENSUP ( 3  > ,  INID(15>,  INDATE ( 9 ) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


MPOL ( 26  > ,  PI NC  <  26  > ,  TLOS <  40 )  ,  POUT (27,17) 

POP (26),  GPP (27),  TLP ( 26 ) ,  TL1(26),  TL2(26),  BIL(26) 
WKA ( 26 > ,  WIA<  26) ,  DNB(26),  DOW (26),  RTD(26>,  PAT (26) 
WEV ( 26 ) ,  WHP ( 26 ) ,  DEV (26),  DHP<26) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


CWI A( 26, 3) ,  CD I S ( 26 , 3 ) ,  HSP( 27, 3) , RPD( 26) ,  CD0W(3) 

HS 1(27),  HS2 ( 27  > ,  HS3(27>,  RP1(26),  RP2(26),  RP3<26) 

RM  (  1 1 34 )  ,  RM  1(373),  RM2073),  RM3(  373) 

RDW 1 ( 26 ,3),  RDW2 ( 26 , 3 ) ,  ROW < 26 > ,  RWEV (3),  RDEV (3) ,  I DUM ( 6 ) 
MDLYO),  FDLY  (  3 )  ,  INLST  <  12)  ,  ID0(12),  FRT(200) 


EOU I VALENC E  ( POP , POUT (2,1)),  <  GPP , POUT (1,2)),  ( TLP , POUT (2,3)) 

, ( TL1 , POUT (2,4) ) ,  <  TL2 , POUT (2,5) ) ,  ( BIL, POUT ( 2, 6 ) ) 

, ( WKA , POUT (2,7)),  ( W I A , POUT ( 2 , 3 ) ) ,  ( WEV , POUT (2,3)) 

EOU I VALENCE  ( WHP , POUT (2,10)),  < DNB , POUT (2,11)),  ( DEV , POUT (2,12)) 

,  ( DHP , POUT (2,13)),  <  DOW , POUT (2,14)),  ( RTD , POUT ( 2 , 1 5 ) ) 

, <  PAT , POUT (2,16)),  <  TLOS , POUT (2,17)) 

EQUIVALENCE  (HS1.HSP),  < HS2 , HSP (1,2)),  ( HS3 , HSP (1,3)) 

EQUIVALENCE  (PDW,RDW1>,  <RPD,BIL) 

EQUIVALENCE  (RPt,RDW2),  ( RP2 , RDW2 (1,2)),  ( RP3, RDW2 (1,3) ) 

EQl  1 1 VALENCE  ( PREM , POUT ) ,  ( PATO , POUT (1,16)),  ( FRT , PM ) 

EQUIVALENCE  ( RMt , RM) ,  <  RM2, RM ( 373 ) ) ,  ( RM3 , PM ( 757 )  ) 


DATA  DAY/  PRE-M" 

,  "M  ,  "M+10" ,  '  M+20 " ,  M+30' ,  M+40  ,  M+50  ' ,  'M+60  ,  M+70  '  ,  M+30 
,  M+90  ' ,  "  M+ 1  00  ,  '  M+ 1  1 0  M+ 1  20  ' ,  M+ 1 30  '' ,  M+  1  40  " ,  '  M+ 1 50  ",  "  M+ 1 60  " 
,  '  M+ 1 70 ■" ,  "M+1  30 '  ,  "  M+  1  --'O  ■"  / 

DATA  ILM/27/ ,  ISW/-1/ 


2  FORMAT  (  /  1 4 K  ,  S'  (  _ "  )  ) 

4  FORMAT ( 1 4X , 3 ( - )) 

6  FHRMAT(///) 

7  FORMAT ( l 5X , S l 2 , 2 X , S3 / ) 


1  2  FORMAT  (  /  IS.  IX,  336< »  1  X  ,  S3,  2X,  SI  2.  2X  ,  A3  ) 

13  FORMAT  (  / /  1 0 X  ,  S 1 5 ,  '  :  ,  1X,S15,  14,  RECORDS  ' ,  2X  ,  S3/ // ) 


WRITE  (1,6) 

ACCEPT  "  CASUALTY  RUN  DATE  =  ",  RUNDATE 
ACCEPT  "  CASUALTY  F ILE ( OUTPUT )  =  ",  LFN,  " 
OPEN  (4, LFN, OUTPUT, BINARY)?  WRITE  (4) 


ID  =  ",  FTLID 
FILID,  RUNDATE  * 


ACCEPT  " 
READ  <7 ) 
ACCEPT  " 
ACCEPT  " 


INPUT  FILE  =  " 
I N I D ,  DATE ; 

*  OF  RECORDS 
REC'D  OS  =  " 


MFN? 


OPEN  (7. MFN, INPUT, BINARY) 
WRITE  (1,7)  INID,  DATE? 
TO  PROCESS  =  ",  NUMR 
< INLST (N),  N» 1. NUMR) 


DISPLAY  ”  " 
WRITE  (1,2) 


DO  103  N=1,NMMR 
103  IDO( INLST (N) )  = 

150  LSW  =  ISW 
1 60  READ  ( 7 , END=900 ) 


I SW , LTYP , DATE , TH I D , THETR , ENOF , I  TP , PATO , PREM 
MDW.MDD, IDLY, AV 


NPEC  =  NR EC  +  1 
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IF  (ISW.EQ.O)  READ  <7)  PINC,  TL1.TL2,  BIL,  RDW, RDW,  RDW2  5! 

IF  (ISW.EQ.t)  READ  (7)  PINC,  TLP ,  RPD,  RDW1 ,  RDW2 
IF  (  IDO(NREC)  .EQ.O)  GO  TO  160 
KREC  =  KREC  +  1 

WRITE  <1,12)  NREC,  THETR,  ENOF,  THID,  DATE 
IF  < ISW.EO.LSW)  GO  TO  (300,500),  ISW+l 
170  ACCEPT  "  POLICY  FILE  =  ",  PEN*  OPEN  < 3, PFN, INPUT, BINARY ) 

READ  <  3 )  .JSW,  JNUM!  IF  (JSW.  EQ.  ISW)  GO  TO  172 

DISPLAY  "  WRONG  POLICY  FILE" 5  GO  TO  170 

172  READ  <3>  MPOL,  RWEV,  RDEV,  IDUM 
DO  176  J=  1 ,  .JNUM 

176  READ  (3)  KB,  KT,  ( FRT ( K ) ,  K=1,KT) 

READ  <  3 )  RM1,  RM2?  IF  (JSW.EQ.l)  READ  <3)  RMS 

CLOSE  <3)5  GO  TO  (300,500),  ISW+l 

Cs  COMPUTE  THEATER 

300  MDL Y  < 1 )  =  TRUNC <  MOW / 1 0 . 0 ) ?  FDLY (1)  =  FRACT  < MDW / 1 0 . 0 ) 

MDLY  (  2)  =  TRIJNC (MDD/ 10.0) ;  FDLY  (  2)  =  FRACT < MDD/ 10.  0 ) 

HS2  <  1  )  =  PATO;  P0P<1)  =  PREM  +  PINC<1>?  GPP<1)  =  F’REM 

DO  353  I = 1 , I TP 

RF'F  =  5  *  (RPl  (  I  )+RP2<  I  )+RP3<  I  )  ) 

TLP  < I  )  =  TL1 ( I )  +  TL2  < I ) 

IF  U.GT.l)  POP<I)  =  POP(I-l)  +  PINC(I) 

GPP (  I  + 1  )  =  POP(I>?  IF  (IDLY. EQ.O)  GO  TO  320 

GPP < I  + 1 )  =  < 1 . -RPF ) *GPP ( I )  +  PINC(I)  -  TLP ( I ) 

IF  < I . GT. IDLY )  GPP  <  I  + 1  )  =  GPP<I+1>  +  RTD( I -IDLY)  +  TLOS(I-IDLY) 

GPP <  I  + 1  )  =  OPP< 1+1 )/< l.+RPF) 

320  TMP  =  1 O* < 1 . -AV ) *OPP < I )  +  iO*AV*GFP (  I  + 1  ) 

IF  (I.EQ.t)  TMP  =  POP(I)  +  ?*GPP  < I ) 

WKA < 1 )  =  RP 1 < I ) *TMP  +  TL 1 ( I ) 

W I A  < I )  =  RP2  < I ) *TMP  +  TL2  < I ) *  DNB(I)  =  RP3 < I ) *TMP 
IF  < I +MDLY  < l ) - 1 TP )  322 , 324 , 330 

322  WEV  <1  +  1 +MDLY < 1 ) >  =  WEV  <1  +  1 +MOLY < 1 )  )  +  RWEV ( MPOL < I )) *W I A  < I ) *FDLY < 1 ) 
324  WEV< I+MDLY< 1 ) )  =  WEV < I +MDLY < 1 ) >  +  RWEV < MPOL < I) > *WI A < T) *< 1 . -FDLY ( 1 ) ) 
330  IF  < I +MDLY < 2 ) - I TP )  332 , 334 , 340 

332  DEV  <  T  + 1 +MDLY ( 2  > )  =  DEV  <1  +  1 +MDLY ( 2 ) )  +  RDEV < MPOL ( I) ) *DNB ( I  1 *FDLY <  2 ) 
334  DEV  <  I  +MOL.Y  (  2 )  )  =  DEV  <  I +MDLY  <  2  )  )  +  RDEV  <  MPOL  <  I  )  )  *DNR  <  I>  *  <  1 .  -FDLY  <  2  )  ) 

240  WHP  (  I  )  =  WTA<  I  )  -  WEV  <  I  )  ;  PHP  (  T  )  =  BN  Ft  <  I  )  -  DEV<  I  ) 

CDW  =  RDW ( I )  *  < 1 . -RWEV < MPOL <I>>>  *  WIA(I> 

HSKI  +  l)  =  <  1 .  —RWEV  <  MPOL  <  I  )  >  )  *W  I A  <  I  )  -  CDW 
DOW < I )  =  CDW 

C :  CDW  =  RDW  < I )  *  ( 1 . -RDEV <  MPOL < I ) )  )  *  DNR  < I ) 

MS? < 1+1)  =  < 1 . -RDEV < MPOL < I ) ) )*DNB< I ) 

C :  DOW  < I )  =  DOW  < I )  +  CDW 

Cs 

Os  PUT  EVACS  IN  CONUS 

rWTA<I,l>  =  CW I A ( 1 , 1 )  +  WEV  < I ) ;  CWIA(I,2)  =  CWIA<I,2)  +  DEV ( I > 

C  W I A  < 1,3)  =  CWIA< 1,3)  +  POP < I > 

C  : 

DO  352  J= 1,1+1  ' 

XX  =  I*< 1+1 ) / 2  +  J 

352  RTD(I)  =  PTD(I)  +  HS 1 <  J ) *RM 1 ( I  X )  +  HS2 < J > *RM2 < I X > 

PAT  <  I  )  =  WHP  <  I  )  +  DHP(I)  -  DOWU)  -  RTD<  I  ) 

PAT ( I )  =  PAT  < I )  +  POUT ( 1 , 16) 

TLOS < I )  =  WKA < I >  +  W I A ( I )  +  DNB < I )  -  RTD< I ) 

Cs  IF  < I .EQ. 1 . AND. IDLY.NE.O)  GPP(I  +  1>  =  POP  < I ) -WKA  < I ) -W I A ( I > -DNB  < I > 

353  CONTINUE 

TPREM  =  TPREM  +  PREM 
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400  WRITE  <  4 )  ISW,  DATE,  THID,  THETR,  ENOF 


MDW,  MDD,  IDLY,  POUT 
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DO  462  1  =  1 ,  ILM  56 

DO  462  J= 1,17 
462  POUT (I ,  J  >  =  O 

IF  <KREC.LT.NUMR>  GO  TO  150 
GO  TO  900 

500  ACCEPT  '*  EVACUEE  FILE  =  " ,  PFN;  IF  <  PFN.  EQ. 'N' )  GO  TO  510 

OPEN  <3, PFN);  LL  =  0;  GO  TO  504 

502  CLOSE  <  3  >  ?  GO  TO  500 • 

504  READ  <3,END=502)  INDATE,  THSUP,  ENSUP,  TPPEM,  CWIA;  LL  =  LL  +  1 

WRITE  (1,12)  LL,  THSUP,  ENSUP,  INDATE;  IF  < ENSUP. NE. ENOF )  GO  TO  504 

CLOSE  <  3 ) 

510  ACCEPT  "  SUPPLY  FILE  =  ",  PFN;  IF  (PFN.EO.'N')  GO  TO  530 

OPEN  <3, PFN);  LL  =  0;  GO  TO  514 

512  CLOSE  <3>;  GO  TO  510 

514  READ  <3, END=512>  INDATE,  THSUP,  ENSUP,  PSUP,  TL2;  LL  =  LL  +  1 

WRITE  (1,12)  LL,  THSUP,  ENSUP,  INDATE;  IF  (ENSUP. NE. ENOF )  GO  TO  514 

CLOSE  <  3 ) 

POUT (1,4)  =  PREM ;  TL 1 < 1 )  =  PREM+P I NC < 1 ) 

FPEM  =  PSUP  -  TPREM;  PINC<1)  =  TL  2(1)  -  CWIAd-3)  -  PREM 
DO  513  1=2, ILM-1 

TL 1 < I )  =  PINC(I)  +  TL 1(1—1) 

513  PINC(I)  =  (TL2( I )-CWIA( 1,3) )  -  <  TL2 ( I - 1 ) — CW I A ( I - 1 , 3  > > 

COMPUTE  CONUS 

5 30  MDLY ( 1 )  =  TRUNC ( MDW / 1 0 . 0 ) ;  FDLY (  1  >  =  FRACT < MDW / 1 0 . 0 ) 

MDLY ( 2 )  =  TRUNC ( MDD/ 10.0) ;  FDLY (2)  =  FRACT ( MDD / 10. 0 ) 

MDLY (3)  =  TRUNC ( IDLY/ 10.0 );  FDLY ( 3 )  =  FRACT ( IDLY/ 10. 0 ) 

HS2  < 1 )  =  0?  HS3 < 1 )  =  RATO;  POP(l)  =  PREM  +  PINC(l) 

GPP ( 1 )  =  MAX  ( PREM, 0 ) 

DO  553  1=1, I TP 

IF  (I.GT.l)  POP(I)  =  POP(I-l)  +  PINC(I) 

GPP ( I + l )  =  MAX  (POP(I).O) 

TMP  =  1 0* ( 1 . -AV ) *GPP ( I )  +  1 0*AV*GPP ( I + 1 ) 

IF  ( I . EQ . 1 )  TMP  =  POP ( I )  +  9*GPP ( I ) 

CWTA(I,3)  =  RPD ( I >*TMP  +  TLP(I) 

DO  543  .1=1,3 

TMP  =  RDW2(I,.U  *  CWIA  (  T  ,  ...I ) 

IF  (  I+MOLY(.U-ITP>  542,544,546 
54  7'  CD  I S  (  T  + 1  +MPLY  ( .J  >  ,  J  >  =  CD  I S  (  I  + 1 +MDLY  ( .J )  ,  J )  +  TMP*FDLY  ( J ) 

544  CD  I S  <  I +MDLY  ( U )  ,  J )  =  CDIS  (  I +MDLY  ( -J  )  ,  J  >  +  TMP*  (  1 .  -FDLY  (  J )  ) 

546  CDOWOJ)  =  RDWKI..J)  *  CWTA(I,,J) 

HSP(I  +  1,J)  =  CWIA(I,J)  -  CDOW(.J)  -  CD  I S  (  I ,  J ) 

543  DOW  (  I  )  =  DOW  (  T  )  +  CDOW(.J)  +  CDIS<I,.J) 

W  T  A  (  I  )  =  CWIAd.l);  DEV  (  I  )  =  CWIAd,2) 

DHP  (  I  )  =  CWIA  (1,3);  DNBd)  =  DEV  (I  )  +  DHP  (I  ) 

DO  552  ,J=1,IH 

I  X  =  I*(I-H)/2  +  J;  RTD  (  I  )  =  RTD  (  T  )  +  HS1  ( J )  *RM1  (I  X  ) 

552  RTD (I )  =  RTD ( I )  *  HS2 ( J  >  *RM2  d  X )  +  HS3 ( J ) *RM3 (IX) 

PAT (I)  =  HS 1(1  +  1)  +  HS2 < I  + 1 )  +  HS3 ( I  + 1 )  -  RTD( I ) 

F'AT  (  I  )  =  PAT  (I  )  +  POUT  (1,16) 

TLOS(T>  =  CWIA (1,3)  -  RTDd) 

553  CONTINUE 
GO  T Ci  400 

300  CLOSE  (7);  CLOSE  <4> 

WRITE  (1,13)  LFN,  FIL ID,  KREC,  RUNDATE; 

END 


WRITE  (1,2) 
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Functions 

.  Print  casualty  tables 

.  Print  and  store  aggregates  of  casualty  tables 
.  Create  and  print  hospital  data  files 

Input 

.  Casualty  files  created  by  MMMCASPRG 
.  Casualty  files  previously  created  by  this  program 
.  Hospital  files  previously  created  by  this  program 

Output 

All  output  is  optional. 

.  Casualty  tables  printed  for  any  designated  time  periods 
.  Specified  aggregates  of  casualty  tables: 

.  Printed  for  any  designated  time  periods 
.  Stored  as  files 

.  Hospital  data  printed  for  any  designated  time  periods 
.  Specified  aggregates  of  hospital  data  sets: 

.  Printed  for  any  designated  time  periods 
.  Hospital  data  file 

Use 

Casualty  tables  can  be  aggregated  to  the  level  of  detail  desired  for 
the  demand  program  (MMMDEMPRG) ,  thus  reducing  storage  requirements. 

Hospital  data  files  are  input  for  the  medical  requirements  program 


(MMMHOSPRG) . 
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PR I NTS /SUMS  THEATER /NON-THEATER  CASUALTY  OUTPUT 


COMMON  NDX ( 27 ) ,  NDYSC27),  I  DO < 12,2) 

COMMON  NPD,  MOW.  MOD,  IDLY,  DAY,  THETR,  ENOF,  THID,  DATE,  NYN 
COMMON  NCON ,  NFIL,  RUNDATE,  RNID 

STRING  DAY ( 27  )  (  6 )  ,  THETR (36) ,  ENOF(3),  THID(12),  DATE ( 9 ) ,  NYN ( 3 ) 

STRING  MEN  (15),  FILID(15),  FILDATEC?),  RUNDATE  ( 9)  ,  RNID(12) 

STR I NO  ENOF 1(3),  EN0F2 ( 3 ) ,  NCON (  3 ,  1 2 )  (  3  > 

DIMENSION  P I NP ( 27 ,17),  P0UT(27,17),  CWIA(27,3>,  INLST (12) 

DIMENSION  CWIN  ( 27 , 3 ) 

DATA  DAY/PRE-M' 

,  M  ,  M+t«*>  •  ,  M+20  ' ,  M+30  ' ,  M+40  - ,  M+50  '  ,  'M+60 ' ,  'M+70  ' ,  "M+SO' 

,  M+RO ,  M+ 1  GO  " ,  "  M+ 1  1 0 '  ,  " M+ 1 20  " ,  M+ 1  30  ' ,  '  M+ 1 40  ' ,  '  M+ 1  SO  •' ,  '  M+ 1 60  ' 

,  '  M+ 1 70  '  ,  M+ 1  30  ' ,  " M+ 1 90  ’ ,  "  M+200  ,  M+2 1 0  " ,  '  M+220  "  ,  M+230  " ,  ■" M+240 •'  / 
DATA  DAY (27)/  M+250  / 

DATA  ILM/27 / ,  ENOF 1 / '  ' / ,  ENOF 2/ '  "/ 

FORMAT ( / / / ) 

FORMAT ( / 12X, 3<  _  )  ) 

FORMAT  <  /  1  2X  ,  3  (  _  _ _ '),.»-) 

FORMAT  (  t  T. X  ,  s  1 2 ,  2 X  ,  AO  ) 

FORMAT  (  /  1 6 ,  1  X  ,  S3 6 ,  1  X  ,  S3 , 2X  -  3 1  2 , 2X  ,  A6 ,  ) 

FORMAT  (IX,"',  AO 1  X  ,  -  36 ,  '"MX,  '  "  ' ,  S3  I  12  /<  8  X  ,  7 1  1 0  /  '  ) 

WRITF  (1,1):  ACCEPT  ”  RUN  DATE  =  ",  RUNDATE,  "  ID  =  ",  RNID 

URtTE  (1,2);  NOHSP  =  0;  LSW  =  -1 

ACCEPT  ••  SAVE  HOSP  DATA  ?  ",  NYN;  IF  (NYN.EO.  N  )  GO  TO  120 

ACCEPT  "  HOSP  FILE  =  ",  MEN:  OPEN  ( 4, MFN, OUTPUT , BINARY ) 

NOHSP  =  1 

FIl.ID  =  -  FILDATE  =  '  ■' ;  I  SUM  =  0;  IHSP  =  0 

ACCEPT  "  INPUT  PILE  =  ",  MFN;  OPEN  ( 7 , MFN, INPUT , R I NARY ) 

ACCEPT  "  CASUALTY  FILE  '•  ",  NYN 

IF  (NYN.  EC.  Y  )  RFAD  <7)  FIl.ID,  FILDATE 
WRTTE  (1,7)  FTLID,  FILDATE;  DISPLAY"  " 

DO  122  N- 1 , 1 2 
I  DO <  W , 1  )  =  o 

ACCEPT  "  4  OF  RF CORDS  TO  PROCESS  =  ",  NUMR 

I F  ( NUMR . GT . O )  00  TO  1 26 

Ni  IMP  =  -NUMR:  ACCEPT  "  (TP,HP,SP)  ",  (NCON (1,1),  1  =  1,  3) 

I  DO (1,1)  =  1 ;  I DO ( 1 , 2 )  =  1 

DO  124  N=2 , NUMR 

DO  124  1=1,3 

NC  ON ( I , N  >  =  NCON  < 1,1) 

I  DO  <  N , 1 )  =  1 
I  DO ( N , 2 )  =  1 
GO  TO  130 

ACCEPT  "  L I ST ( # , TP , HP , SP ) *  ",  (INLST(N),  (NCON(I,N),  1=1,3),  N=1,NUMR) 

DO  1 28  N= 1 , NUMR 

I DO ( INLST ( N ) ,2)  =  N 
IDCK  INLST (N) , 1 >  =  1 
DISPLAY  "  ";  MSIJM  =  0;  MEVC  =  O 

ACCEPT  "  SUM  TABLES  ^  ",  NYN;  IF  (NYN.EO.'Y')  MSUM  =  1 

ACCEPT  "  SUM  WOUNDED  7  ",  NYN;  IF  (  NYN .  EQ .  "  Y  ■'  )  MEVC  =  1 

WRITE  (1,2);  NFIL  =  O:  NREC  =  O;  ACCEPT  " . " ,  NYN 
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150  READ  (7,END=300>  ISW , DATE , THI D , THETR , ENOF , I TP , MDW, MDD, I DLY 
IF  (ISW.LT.4)  READ  (7)  PINP 

IF  (ISW.GT.3)  READ  (7)  CWIN 

NFIL  =  NFIL  1  ?  IF  (  I DO ( NF I L ,  1  >  .  EQ .  0 )  GO  TO  150 

WRITE  (1,12)  NFIL,  THE^R ,  ENOF,  THID.  DAY(ITP+1>?  NREC 

IF  < I3W.E0.2.0R,  ISW.E0.3)  I  SUM  =  I SUM  +  MOD  -  1 
IF  (ISW.GT.3)  IHSP  =  IHSP  +  MDD  -  1 

IF  (ISW.GT.3)  I MSP 1  =  MDD 

IF  (EN0F1.E0.  '  )  ENOF l  =  ENOF 

IF  (EN0F.E0.FN0F1 )  GO  TO  152 
IF  (EN0F2.EO.  '  )  ENOF?  =  ENOF 

152  IF  (LSW.LT.O)  LSW  =  ISW 

IF  (ISW.GT.3)  GO  TO  130 

DO  154  I  -  1  ,  IL  M 

C  W I N  < I , 1 )  =  P I NP (1,8);  CWIN(I,2)  =  PINP(I,11) 

154  CWIN( 1,3)  =  PINP (I, 14) 

IHSPI  =  1 

IF  <  MSUM . E 0 . 0 )  G O  TO  17 O 

IF  <MOD( ISW. 2) .ME. MOD (LSW, 2) )  GO  TO  170 

DO  1 63  .J=  1,17 

DO  163  1=1,1 TP+ 1 

163  POUT  (  I , . .1 )  =  POUT  (  I  , . J  )  +  PINP  (  I ,  ..I ) 

I SUM  =  I SUM  +  1?  ISMAX  =  MAX  (ISMAX. ITP) 

1 70  I F  (  NOON  (  1  ,  I  DO  (  NF  I L  ,  2  )  )  .  FO .  Y  '  )  CAL  L  SOPRNT  (  I SW ,  DATE ,  P I  NP  ) 

130  IF  (MEVC.FQ.O)  GO  TO  130 

IF  <MOD( ISW, 2) .NE. MOO (LSW, 2) )  GO  TO  130 
DO  132  1=1,1 TP+ 1 

DO  132  ...1=1,3 

132  CW I A  (  I ,  .J  )  =  CWI A  (  I ,  J  )  +  CWTNd.J) 

IHSP  =  IHSP  +  IHSPi;  THMAX  =  MAX  < I HMAX , I TP ) 

130  IF  (NOHSP.FO.O)  GO  TO  132 

WR I TF  ( 4 )  ISW+4,  DATF ,  THID,  THFTR ,  FNOF,  I  TP,  0,  IHSPI,  NFIL,  CWIN 
132  IF  (NCON<  2,  TOO  (NFIL.,  2  )  )  .  EG.  Y  "  )  CALL  SOPRNT  ( MOD  <  I  SW ,  2  )  +4  ,  DATE ,  CW  I N  ) 

I F  ( NREC . LT . NUMR )  GO  TO  1 50 

300  CLOSE  ( 7 ) 

ACCEPT  "  ANOTHER  INPUT  F  T !  F  ?  ",  NYN:  IF  (NYN.EO.  Y)  GO  TO  120 

LSW  =  MOD (LSW. 2) 

NFII..  *  0?  IF  (  ENOF 2.  NF.  •'  )  FNOF  =  I . EFT ( ENOF  1,3)  +  "•»,  +  LEFT  (  FNOF 2 , 

WRITE  (  l,  ns  IF  dSUM.FO.O)  00  TO  350 

AC  OEPT  "  TABLE  SUMMARY  THFATFR  =  ",  THFTR,  "  ID  =  " ,  THTD 

IF  (LSW.F.0.1)  GO  TO  310 

ACCEPT  "  SAVE  FVAO  DATA  *  ",  NYN?  IF  (NYN.EO.  N)  00  TO  310 

MFN  =  MMMFVAC  +  FNOF;  OPEN  ( 3 , MFN , OUTPUT ) 

WRITE  (3,40)  RIINDATF,  THFTR.  ENOP ,  F'OI  IT  (  1  ,  1  )  ,  (POUT  (1.3),  1=2,27) 

,  (  POUT  (1,12),  1=2,27),  (  POI  IT  (  1 ,  1  )  ,  1=2.27);  CLOSE  (  3  ) 

310  AGCFPT  "  SAVE  TAPI  F  SUMMARY  *•  ",  NYN;  IF  (NYN.EO.  N)  00  TO  3  20 

ACCEPT  "  FILE  NAME  =  ",  MFN,  "  FILE  ID  =  ",  FILID 

OPEN  (3, MEN, OUTPUT. BINARY ) ;  WRITE  (3)  FTLID,  RUNOATE 

WRITE  ( 3 )  LSW+2,  RUNPATE,  THJD,  THETP,  ENOF,  ISMAX,  0,  I SUM,  0,  POUT 
CLOSE  (  3  > 

3  30  ACCEPT  "  PRINT  TABLE  -.IIMMARY  '•  ",  NYN 

IF  (NYN.EO.  Y  >  CALL  SOPRNT  ( LSW+2 , RUNDATE , POUT ) 

350  IF  (IHSP.EO.O)  GO  TO  300 

ACCEPT  "  HOSP  SUMMARY  THEATER  =  ",  THETR,  "  ID  =  ",  THID 

ACCEPT  "  SAVE  HOSP  SUMMARY  7  ",  NYN;  IF  (NYN.EO.  N')  00  TO  370 

IP  (  NOHSP.  EC*.  1  )  GO  TO  360 

ACCEPT  "  HOSP  FILE  NAME  =  ",  MFN;  OPEN  ( 4 , MFN. OUTPUT  -  BINARY ) 
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=  NREC  +  1 
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360  WRITE  ( 4  >  LSW+4,  RUNDATE,  THID,  THETR,  ENOF,  IHMAX,  O,  IHSP,  O,  C  WIA 
CLOSE  (4) 

370  ACCEPT  "  PRINT  HOSP  SUMMARY  ?  ",  NYN 

IF  (NYN.EQ. 'Y' )  CALL  SQPRNT  (LSW+4, RUNDATE, CWI A) 

900  WRITE  (1,2) 

END 


SUBROUT I NE  SPPRNT  ( NSW , PRNDATE , POUT ) 

COMMON  NDX ( 27 ) ,  NDYS<27>,  I DO (12,2) 

COMMON  NPD,  MDW,  MDD,  IDLY,  DAY,  THETR,  ENOF,  THID,  DATE,  NYN 
COMMON  NCON ,  NFIL 
C: 

D I MENS I ON  POUT ( * , * ) 

STRING  DAY <  27 ) < 6 ) ,  THETR (36),  THID(12>,  DATE < 9 > ,  NYN ( 3 ) ,  NAM(17)(7) 

STRING  ENOF (3),  NAM2(3)(6),  NCON ( 3, 12 ) < 3 ) ,  PRNDATE ( 9 ) 

C: 

DATA  NAM/-  POP  ',  -  ADO-POP-' ,  '  RT|„  CAS',  •'  K I A '  ,  'WIA',  "BIL  LOS',  "KIA  ",  'WIA' 

-  EVAC  ,  HOSP  ,  'DNBI  ' ,  EVAC-' ,  'HOSP  '  ,  'DOW  ,  RTD " ,  'PATS  ' ,  PEPL: 

DATA  NBZZ/13/ 

2  FORMAT ( / 1 2X ,  1 4 (  ' _ '  )  ) 

3  FORMAT  (  /  12 X  -  1  4  (  ' _ •'  )  ,  S, ) 

4  FORMAT  (  1  2 X  ,  14(  ' - '  )  ) 

8  FORMAT  (  /4X  ,  "  ^REPLACEMENT  DELAY  =  ',13,'  DAYS'  /6X,  •'EVACUATION-' 

,  DELAY:  WIA  *  ',13,'  DAYS ' /24X,  DNBI  =  ',13,'  DAYS'/) 

1 0  FORMAT  (  /  /  / 4 X  ,  S’? ,  2 X  ,  S  l  2 , 9 X  ,  S36 , 8X  ,  S3  /  /  ) 

20  FORMAT ( / 1 2X , 1 4 ( 2X , A6 ) > 

22  FORMAT ( / 4X , 37 , 1 X , 1 4T3 ) 

24  F0RMAT(7X,S4, IX, 1413) 

C : 

NPD  =  26 
DO  202  N-T , NPD 
202  NDX(N)  =  N 

C:  NPD  -  14 

Cs  DO  202  N= 1 , NFD 

Ci  TF  (  N.  I.T  .  1  3  i  NDX  (  N  )  =  N 

IF  (N.GT.ll-  NDX(N)  =  N  +  2*(N-11> 

C: 202  CONTINUE 
I':  NPD  =  26 

C :  DO  202  N=l,NPD 

i':: '20?  NDX  (N)  =  N 

IF  (NFIL.EO.O)  GO  TO  204 

I F  < NCON (3,1 DO ( NF I L , 2 ) > . EQ . ' S ' )  GO  TO  220 
204  NYN  =  N';  IF  (NFIL.EO.O)  ACCEPT  »  STANDARD  PRINT  ",  N ,  r  J 

IF  (NYN.EO.'Y")  GO  TO  220 

ACCEPT  "  4  OF  PERIODS  TO  PRINT  =  ",  NPD;  NPD  =  NPD  +  i 

ACCEPT  "  LIST  PEPIOD(S):  ”,  ( NDY3 ( N ) ,  N=2,NPD>:  NDX ( n  =  1 

DO  212  N=2 , NPD 

212  NDX(N)  =  2  +  NDYS(N) /10 

220  IF  (NSW.GT.3)  GO  TO  600 
r  : 

C  *  SOI  1 1 SH  THEATER /SUMMARY 

I  =  1 

DO  39 3  N=2 , NPD 

I  =  I  +  l:  IF  < I.EO.NDX(N) )  GO  TO  893 

II  =  NDX(N)  -  1 

DO  373  I  =  1 ,  1 1 
DO  363  J=3, 15 

IF  (.J.F0.4.  AND.  MOD  (NSW,  2)  .EO.  1  )  GO  TO  363 
POUT  (  NDX  <N  )  ,.J)  =  POUT  (  NDX  (N)  ,(>  +  POIIKI,.!) 
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3-S3  CONTINUE 

FOUT(NDX (N) , 17)  =  POUT ( ND  X  <  N ) , 17)  +  POUT(I,17> 

373  CONTINUE 

I  =  NDX(N) 

393  CONTINUE 

PRINT  THEATER /SUMMARY 

NT  =  O;  IF  (MOD (NSW. 2) . GT.O)  GO  TO  404 

NAM  (3)  =  'BTL  CAS'' *  NAM<3>  =  'WIA';  NAM(12)  =  'EY  AC'’ 

NAM  (13)  =  'HOSP ' ;  NAM  (14)  =  'DOW'*.  GO  TO  410 

404  NAM  (  3  )  =  ■"  DNB I  '  *  NAM  (  3  )  =  ■'WIA-TR'?  NAM(12)  =  'TR' 

NAM (13)  =  ' OTHR ' *  NAM (14)  =  'DOW-DIS" 

410  NB  =  NT  +  1?  NT  =  MIN  ( NB+NBZZ , NPD > 

WRITE  (1.10)  PRNDATE .  THID,  THETR,  ENOF 
WRITE  (1,20)  ( DAY ( NDX  ( N )  )  ,  N=NB,NT>*,  K  =  O 

DO  428  U= 1,17 

IF  (.J.EQ.7.0R.  J.EQ.  17)  WRITE  (1,2) 

JA  =  0 

IF  (MOD (NSW, 2) . EQ.O)  GO  TO  412 
IF  (.J.EO.l)  .JA  =  3 

IF  ( J. LT. 1 1 )  GO  TO  ( 422, 422, 422,423, 423, 423, 423, 422, 423, 428) ,  J 
IF  (J.OT. 1 0 )  GO  TO  ( 422 , 424 , 424, 422 , 422 , 422 , 422 ) ,  J- 1 0 
412  IF  (.J.EQ.ll)  K  =  3 

GO  TO  ( 422, 422, 422, 424, 424, 423, 422, 422, 424, 424, 422, 422, 422, 422) ,  J-K 

422  WRITE  (1,22)  NAM ( 0 ) ,  ( POUT  < NDX ( N ) , J+ JA ) ,  N=NB , NT ) ;  GO  TO  4 28 

4  24  WRITE  (1,24)  NAM(.J),  ( POUT  ( NDX  <  N ),  J )  ,  N=NB ,  NT  ) 

423  CONTINUE 

DO  432  N-NB , NT 

TF  (N.GT.l)  POUT ( NDX ( N ) , 17)  =  POUT ( NDX ( N ) , 1 7 )  +  POUT ( NDX ( N- 1 ) , 1 7 > 

432  CONTINUE 

WRITE  (1,22)  "CUM-PEP  '  ,  (POUT (NDX (N) , 17) ,  N=NB, NT ) 

WRITE  (1,22)  •-  EVACS  ",  (  (  POUT  ( NDX  ( N )  ,  9  )  +POUT  (  NDX  (  N  )  ,  1  2  )  )  ,  N=NB,NT) 

IF  (NSW.EO.O)  WRITE  (1,8)  10* IDLY,  MOW,  MDD 

WRITE  (1*2);  DISPLAY  CHAR (108);  TF  ( NT. LT. NPD )  GO  TO  410 

RETURN 

SOU  I  SH /PR  I  NT  HOSPITAL.  DATA 

'-.on  i  =  t 

DO  A 1 8  N= 2 . NPD 

I  =  1  +  1*  IF  ( T.EO.NDX(N)  )  GO  TO  A 18 

II  =  NDX(N)  -  1 

DO  A 1 2  I  =  I  ,  I  I 
DO  A 1  2  J=l,'-i 

A  13  POUT  (NDX  (N)  ,  J)  =  POUT  (NDX  f  N)  ,  J  )  +  P0UT(I,.J) 

A 1 3  I  =  NDX(N) 

NT  =  0*  WRITE  U.  .10)  PRNDATE.  THID,  THETR,  FNOF 

NAM? ( 1 )  =  WIA";  NAM 2 ( 2 )  =  DNB I  j  NAM2( 3)  =  'DOW 

A  30  NB  =  NT  +  1  ;  NT  =  M T N ( NB+NBZ 7 , NPD ) ?  WRITE  (1.20)  ( DAY ( NDX ( N )  ) ,  N=NR , NT ) 
DO  A 33  .J=l,3 

A  33  WRITE  (1.22)  NAM?(._l),  (  POUT(  NDX  (N  ,  N=NB  -  NT  ) 

IF  < NT . GE . NPD )  GO  TO  AGO 
DISPLAY  "  ”*,  DISpi  AY  "  GO  TO  A 30 

AT.O  UJPITE  (1,2)*  WRITE  (1,4);  D I SPI.  AY  CHAR  (  1  08  )  ;  RFTI IRN 

END 
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Function 


Produces  peak  medical  staff  requirements,  by  time  period, 
bv  staff  designation  (doctors,  nurses,  corpsmen),  for  WIA/NBI  patients 
and  for  DISEASED  patients. 


Output 


Use 


WIA,  DNBI,  POW  &  DISCHARGE  data  extracted  from  casualty  tables 
and  stored  in  hospital  data  file(s)  by  MMMPRNPRG.  Any  combination 
of  files  and  data  sets  within  files  may  be  pooled  for  processing 

A  policy  file  produced  by  NUPOLPRG  appropriate  for  the  particular 
casualty  sources.  This  is  usually,  but  not  necessarily, the  same 
theater  or  non-theater  policy  file  used  by  the  casualty  program 
(MMMCASPRG) 

Designation  of  the  rate  of  admissions  in  any  specified  time  period, 
i.e.,  10%  per  day,  40%  on  day  4  and  60%  on  day  5,  etc. 


A  medical  requirements  file  containing  tables  of  peak  staff 
requirements  for  WIA/NBI  patients  and  DISEASED  patients  by 
time  period 

Printed  versions  of  each  table  produced 


.  Input  to  printing  program  (MEDPRN) 

.  Input  to  the  demand  program  (MMMDEMPRG) 


o  3 


t 


MMMHOSPRG 


a 

c  '• 


t 


f 


C : 


C'.: 


MMMHOSPRG  ESTIMATES  MEDICAL  PEG  MNTS,  CREATES  MFD  REG  FI l  F 


STRING 

STRING 

STRING 

DIMENSION 

DIMENSION 

DIMENSION 

D I  MENS.  I  ON 

D  T  MENS I ON 

DIMENSION 

DIMENSION 


DAY  (  27)  (  6  )  ,  THFTR  (  36 )  ,  I FN  (  1  5  )  ,  '  MRJ  MS),  F'FN  MS),  N  .  i,;  •  ■: » 

TYF' (  2  )  ( 8  >  ,  THID<  12) »  Fit.  1  D(  15)  ,  DATE  (9),  RONDATF  (  -O  .  Fiore', 
EC  HOP G  ( ) 

MDI.  ( 2 )  ,  I  DO  MS),  I NL  ST  (15),  MDA  (  2  ) 

W I A  (  26 )  ,  DNB  <  26  )  ,  DON  (  26  )  ,  WIAX<  26  )  ,  DNB X  (  ?6  )  ,  DON  >  (  2/-. ) 

PDF'  <  270  )  ,  MFOL  (  26  ) ,  I RTD  <  3,  2  )  ,  RWDV  (3,2),  HNW  (  2  )  ,  HDW  (  :  > 

AEV <  26 , 2 ) ,  E V  X < 26 ,2,3),  RV X < 2 , 3 ) 

JBOS),  JT  (  3  )  ,  I  P  (  P-  > 

FHF<7,2),  FHN  <  6 , 2  ) ,  FHC  (6-2),  PCI  IF'  (  3 ,  2 )  ,  EHRX(3,2) 

FNP (5,2),  FNN  (5,2)  ,  FNC (5,2),  ENF'X  (  3  )  ,  LPNC  (5) 


D I MENS I  ON  HSP <  26  > ,  PAT < 26 ) ,  WHP  ( 26 ) ,  WHM ( 26 ) ,  WHO  ( 26 ) 

D I  MENS  I  ON  ADP  <  270  )  ,  AON  ( 270  )  ,  ADC  (  270  )  .  PFP  (  270  .» ,  FRT  ( 500  )  ,  FPN  (  5  ) 


DATA  DAY/- PRE-M ' 

,  'M  "  ,  "M+ 10  ,  "  M+20  ,  "M+ 30  '  ,  "  M+AC>  ,  ,  •  'M-+60  ,  "M+70  ,  U+8G 

,  "M+SO  •’  ,  XM+ 1  00  ,  "M-+  1  1  O  ,  'M+  1  20  ,  -  M+  1  SO  -  M-M  40  ,  -  M-*  1  50  ,  •  M+  1  60  ' 

,  "  M+  1 70  " ,  "M+130M  "M+1S0  ,  'M+20O  ,  'M+21  0  ,  "  M+  220  ,  -'M+CSO-,  m  +  ./Ai'i-  / 
DATA  DAY  <  27  )  /  M+250  / 

DATA  FHP/1.1 96,  5*.  107,  0-  .114,  5<-.04,  0/ 

DAT  A  PCI  IF'  /  .  04 ,  .  05 ,  ,  06 ,  ,  01  7  ,  .  022 ,  .  022  / 

DAT  A  FHF  X / . 02 ,.01, 0 ,  .01,. 005 , 0 / 

DATA  FHN./. 90S,  .363,  .338,  .333,  .334,  .312,  .242,  .242,  .229,  .22'"'-  .20’"',  .  1  / 

DATA  FHC/ 1.89, .503, .465, .465, .458, .426,  .321 , .321 , .301 , .301 , ,27 2- .2 36/ 

DATA  FNP / . 33 , . 074 , 0 , 0 , . 0 1 5 ,  .210,. 0  38 , . 038 , . 0 1 6 ,  .01 6 / 

DAT  A  FNP  X / . 056 , . 059 , . 06 1 / 

DATA  FNN/.  595,  .  495,  .  242",  .  242,  .  202,  .  302,  .  280.  .  204,  .  204  ,  .  3  95/ 

DATA  FNC./.  827,  .  6*9  3,  .  202  -  .  202,  .  236,  •  06 6-  .  354,  ,."43  ,  .  241  ,  .  227/ 

DATA  HWW/1. 0,0.0/,  HDW/0.2, .8/-  FDW / . 6 , . 7 , . 8 , . 9 .  3 . 0 / 

DATA  ILM/26/,  LPNC/ 1 , 1 0, 15- 50, 270/ 

DAT  A  TYF/" WIAXNBI '  ,  DISEASED  / 


2  FORMAT  (  /14V,  8  <  _  )  ) 

4  FORMAT  <  14V,  8  (  "' -  )) 

6  FORMAT ( / / / ) 


7  F ORMAT  (  1 5 X  ,  S 1 2 , 2 X  ,  A-7  ) 

1 0  FORMAT ( / / /8X , A36, 22X , SI 2//34X , 88 > 

12  FORMAT ( / 15, 2X , 836, 1 X , 88 , 2X , 81 2 , 2X , A6 ) 

20  FORMAT ( / 12X , -ADMISSIONS  ,4X,  'PAT  I  ENTS" , 5X ,  'DOCTORS  , 6X ,  NURSES 
,4X, 'CORFSMEN  /28X , "PEAK  / ) 

22  FORMAT  <  4X , A6, 5112) 

WRITE  (1,6)?  ACCEPT  "  RUN  DATF  =  ",  RUNDATF 

100  ACCEPT  "  MEDICAL  REO' MNTS  FILE  =  " ,  MFN,  "  ID  =  ",  FI  LID 
OPEN  <4, MFN, OUTPUT, BINARY) 

ACCEPT  "  ADD-ON  ?  ",  NYN;  IF  (NYN.EO. "N'l  WRITE  (4)  FILID,  RUNDATE 

ACCEPT  "  POLICY  FILE  =  ",  FFN?  OPEN  ( 3, PFN , I NFUT , B I NARY > 

READ  (3)  JSW,  JNI.IM ,  MFOL,  RWDV,  I  RTD 
JB ( 1 )  =  0 
DO  122  J= 1 , JNUM 

READ  <  3  >  KB  ( J ) ,  JT(.J>,  <FRT(K+JB(.J)  ) ,  K=1,.JT(.J>> 

122  JB  <  ,J+ 1  )  =  JT  <  J )  +  JB  ( J ) 

CLOSE  (3) 
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1 30 

132 

1  80 
1 90 

200 


2 1  8 


C 

c 

c 


240 
1  GO 


400 

408 


C: 

C*  412 
C: 


ACCEPT  "  RUN  THRU  DAY  M+" ,  NTT  DH 

DISPLAY  *'  DISPLAY  "  ENTER  ADM  RATES:  ";  NT  =  -10 

NN  =  NT  +  l;  DISPLAY  "  FROM",  NN 

ACCEPT  "  TO  ",  NT,"  =  " ,  PDF'CT 

DO  1 32  M=NN+ ] 0, NT+ 1 0 
PDF’  (  M  >  =  PDF'CT 
IF  (  NT .  L.T .  NTT  )  GO  TO  130 

ITF'X  =  NTT/ 10  +  1 

ACCEPT  "  EVAC  DELAY:  WIAVNPI  =  ",  MDL ( 1 > ,  "  DIS  =  ",  MDL  ( 2 ) 

WRITE  <1,2>:  NC-'NT  =  O?  MFCNT  =  0 

ACCEPT  "  HOSPITAL  FILE  =  ",  MFN5  OPEN  ( 7 , MFN, RAND I N  < 189) , BINARY > 

ACCEPT  "  4  OF  RECORDS  TO  PROCESS  -  ",  NUMR 

ACCEPT  "  REC-'D  #S  =  ",  UNl.ST<N),  N=1  ,NUMR>  ?  NR  FT:  -  0 

NREC  =  NRFC  +  1 

READ  (7)  (  INI.  ST  (NREC)  )  ISW,  DATE,  THI  D,  THFTF  ,  ENOF,  I  TP,  NF 1 ,  NF2 ,  NF  • 

, XNF ,  W I A  V ,  XNF ,  DNBX ,  XNF ,  DOWX;  ISW  =  M0D(ISW,2) 

IF  (ISW.NE.JSW)  GO  TO  200 

NCNT  =  NCNT  +  1)  NFCNT  -  NFC NT  +  NF2 

WRITE  (1,12)  INI. ST  (NREC )  ,  THFTR ,  FNOF ,  THID,  DAY(ITF+1> 

DO  218  1=1, I TP 

WI A ( I  )  =  W I A ( I  )  +  WIAX ( I  ) 

DNB ( I  )  =  DND ( I )  +  DNRX  < T  ) 

DOW  (  I  >  =  DOW  (  I  )  4  DOW  v  <’  I  > 

IF  (NREC. LT. NUMR )  GO  TO  200 
CLOSE  ( 7 ) 

ACCEPT  "  ANOTHER  HOSPITAL  FILE  ?" ,  NYN)  IF  (NYN.EO.  -'N  )  GO  TO  240 
DO  222  N=  1  ,  1  S 
INLST(N)  =  0 
GO  TO  180 

DISPLAY  "  ",  NCNT,  "  REC  DS  USED";  WRITE  (1,2) 

IX  =  ICH 

DISPLAY  "  EVAC  TO  ECH  ",  IX+1 

ACCEPT  "  7.WIAVNBI  =  ",  PVX  (  I X ,  1  ) ,  ”  ’/.DIS  =  ",  RVXUX,2> 

IX  =  IX  +  );  IF  (IX.LE.3)  GO  TO  150 

ACCEPT  "  EVACUEE  FILE  FOR  OTHER  FT  HF LONS  =  ",  IFN 
OPEN  ( 3 , I FN , OUTPUT , B I NARY )  - 

ACCEPT  "  MEDICAL  TABLE  THEATER'  =  ",  THETR,  "  ID  =  ",  THID 

IW  =  0!  ITF'  =  ITF'X;  ISWI  =  1  -  ISW 

IW  =  IW  +  l;  MEV  =  MDL(IW);  IIA  =  0;  KDOMAX  =  0;  MAV  =  MDAdW) 

DO  408  1=1, ILM 

WHF'(I)  =  O;  WHN(I)  =  0;  WHC(I)  =  05  F'AT(I)  =  0 
CONTINUE 
DO  498  1  =  1,  ITF' 

IB  =  10*(  1-1)5  F'DF'X  =  05  HS2 1  =  O 

FHP ( 7 , I W )  =  RCUP ( MPOL ( I ) , I W ) 

FNP < 3 ,  1 )  =  FNF'X ( MPOL ( I  )  )  *  FNP(4,1)  =  FNF'(3,1) 

HSP(I)  =  HWW( IW)*WIA( I )  +  HDW( IW)*DNB( I ) 

EVT  =  RWDV ( MPOL ( I ) , I W ) *HSP ( I ) 

J.J  =  I RTD (  MPOL (  I  ) ,  I W  > ;  KFR  =  JB(.J.J)  4  1 

KBGN  =  KB ( J J ) - 1 5  KTOP  =  KBGN  4  JT(.JJ)  -  1 

KDO  =  MIN (KTOP, 10*ILM-IB) 5  KLM  =  MIN(21,KD0) 

KDOMAX  =  MAX  (KD04 10, KDOMAX ) 5  KDOMAX  =  MIN  < KDOMAX , 10* I LM-I B ) 

DO  412  IX  =  ICH, 3 

EVX ( I , IW, I  X )  =  EVT*RVX( IW, IX) 


DO  458  N=1 , 10 
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NN  =  IB  +  N  65 

ADM  =  PDF'  <  NN )  *  HSF'd);  EVN  PDF'  ( NN )  *  FVT 

DWN  =  PDF’  ( NN )  *  DOW  (  I  ) ;  RTN  =  ADM  -  DWN  -  ISWI*EVN 

APN  =  PDF'  (  NN  )  *  AEVd.IW) 

FEV  =  O:  KX  =  1;  FEVA  =  O 

DO  438  K=1,KLM 

KK  =  MAX (  O.K-KBGN);  IF  (K.GT.MEV)  FFV  =  1.0 

IF  (K.GT.MAV)  FEVA  =  1. 0 

H3X  =  FEVA*AEN;  RTN  =  RTN  +  HSX 

H3S  =  ADM  -  FDW<MIN(K, 5)  >*DWN  -  FRT < KFR+KK >*RTN  -  1 3WI  +FEV+EVN  +  HSX 
IF  (HSS.LE.O)  GO  TO  440 

L  =  N  -  1  +  K?  PEF'(L)  =  F'EF'(L)  +  H83 

IF  (L.EQ.21 )  HS'2 1  =  HS21  +  HSS 
IF  (ISW.EQ.O)  GO  TO  430 
IF  (  K.  GT.  LF'NC  <  KX  )  )  KX  =  KX  +  1 

ADF'  <  L  )  =  A  DP  <  I.  )  +  FNP  ( K  X ,  7  W  >  #  HSS 
ADN(L)  =  ADN(L)  +  FNN(KX.IW)  *  HSS 
ADC(L)  -  ADC  (I  )  +  FIJI"  ( KX  ,  I W  >  *  HSS;  GO  TO  4  34 

430  ADF'  (  L  >  =  ADR  ( L  1  +  FHP  (  M 1  N  ( K ,  7  1  ,  I W  )  *HSS 

ADF'd.)  =  ADF'(L)  +  FHF'X  ( MI  N  <  NA  V  d  — MAV,  1  )  ,  3 )  ,  I W  )  *-HSX 
ADNd.)  =  ADNd.  )  +  FHN(MIN(K 6)  , IW)*HS3 
ADC ( L )  =  ADC(L)  +  FHC< MINUS  61 , IW)*HS8 
434  IF  (L.GE.KLM)  GO  TO  440 
438  CONTINUE 

440  WHF  (  I  )  =  MAX  (  WHP  <  I  )  ,  ADF'  <  M  >  )  ;  WHN  (  I  )  =  MAX  (  WHN  Mi,  ADN  (  N  i 

WHOM)  =  MAX  (WHC<  I  )  ,  ADC(N)  )  ;  PAT  <  I  )  -  MAX  ( F'AT  (  I  )  ,  PFF  (N)  ) 

PDF' X  =  MA X  (  PDF' X  ,  PDF'  ( NN  )  ) 

458  CONTINUE 

IF  (KD0.LE.21)  GO  TO  480 
KX  =  4 

DO  478  L. =3 1  ,  KDO+ 10.1 0 
KK  =  MAX  (0.L-10-KBGN) 

HS2 1  =  HS21  -  FRT  <  KFR+KK  )  *R'TN /PDF' X. 

I F  ( HS2 1 . LE . 0  >  GO  TO  480 

F'EF'(L)  =  F'EF'(L)  +  HS21 
IF  (ISW.EQ.O)  GO  TO  470 

IF  d_.GT.50)  KX  =  5 

ADF'  ( L  )  =  ADF'  <  L  )  +  HS2 1  *FNP  <  K X  ,  I W  ) 

ADN (L  >  =  ADN ( L )  +  HS2 1 *FNN ( K X . I W  > 

ADC(L)  =  ADC ( L )  +  HS21 *FNC < KX , 7 W > S  GO  TO  478 

470  ADF'(L)  =  ADF'(L)  +  HS21  *FHP  <  7.  I W  ) 

ADN ( L )  =  ADN(L)  +  HS21 *FHN ( 6 , I W ) 

ADC ( L )  =  ADC ( L )  +  HS2 1 *FHC ( 6 » I W ) 

478  CONTINUE 
480  DO  482  L=l,31 

PEF  (L>  =  PEP ( L+ 1 0 ) ;  ADF'(L)  =  ADP(L+10>?  ADN(L)  =  A0N<L.+  10> 

482  ADC(L)  =  ADC(L+10) 

DO  486  L=4 1 , KDOMAX +10,10 

F'EF'(L)  =  F'EP(L+10);  ADF'(L)  =  ADP(L+10>?  ADN  ( L  )  =»ADN(L+10) 

486  ADC(L)  =  ADC(L+10) 

IF  (I.LT.ITP)  GO  TO  498 

IF  (IIA.EO.O)  I  ADD  =  MIN  (  1+KD0MAX/10,  ILM-ITF'  ) 

IF  < 1 1 A . GE . I ADD )  GO  TO  498 
1 1 A  =  1 1 A  +  1 
DO  492  N=1 , 10 

WHP  ( I  + 1 1 A )  =  MAX  ( WHP  ( I  + 1 1 A ) ,  ADF’  ( N  >  ) »  WHN(I  +  IIA)  =  MAX  ( WHN  ( 1  + 1 1 A ) » ADN  ( N )  ) 
WHC  ( I  + 1 1 A )  =  MAX  ( WHC  ( I  + 1 1 A ) ,  ADC  ( N )  ) »  PAT(I  +  IIA>  =  MAX  (PAT  ( I  +  I I A ) ,  PEF'(  N ) ) 
492  CONTINUE 
GO  TO  480 
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498  CONTINUE  66 

ACCEPT  ,NYN‘,  WRITE  (1,10)  THETR,  THID,  TYP(IW);  WRITF  (1,20) 

DO  518  1=1,1 TP+ I ADD 

518  WRITE  (1,22)  DAY(I+1>,  HSP(I),  PAT ( I ) ,  WHP ( I ) ,  WHN(I),  WHC ( I ) 

WRITE  (1,2);  WRITE  <1,4M  ACCEPT  "?",  NYN 

WRITE  (4)  100+ISW,  RUNDATE,  THID,  THFTR,  TYP(IW),  I TP,  IW,NFCNT,  O 

WRITE  (4)  ZER,  HSP,  ZER',PAT,  ZER,WHP,  ZER ,  WHN ,  ZER,WHC 
DO  522  L= 1,270 

ADP  (L)  =  0;  ADN(L)  =  O*  ADC(L>  =  0 

522  PEP  (L)  =  O 

IF  (IW.EQ.l)  00  TO  400 

CLOSE  (7) ;  NCNT  =  O 

ACCEPT  "  ANOTHER  MEDICAL  TABLE  ?  ",  NYN;  IF  (NYN. EQ. XN" )  00  TO  900 

DO  532  1=1, I LM 

WIA(I)  =  0;  DNB ( I )  =  0 

532  DOW ( I )  =0 
00  T  0  1 80 
900  CLOSE ( 4 ) * 

END 
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MEDPRN 


Function 


Aggregates  medical  requirements  tables  and  tallies  enlisted, 
officer  and  total  requirements. 

Input 

.  Medical  requirements  files  generated  by  the  medical  requirements 
program  (MMMHOSPRG) .  Any  data  sets  from  any  files  may  be  pooled 
for  processing. 

Output 


•  Printed  tables  of  peak  medical  staff  requirements  by  staff  type, 
enlisted,  officers  and  totals,  by  time  period 
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STRING  DAY <  27 ) ( 6 ) »  THETR<36>,  EN0F<3>,  THID(12>,  DATE ( 9 ) 

STRING  MFN<15>,  F I L I D  (  1 5 )  >  FILDATE(9),  RUNDATE ( 9 )  ,  NYN ( 3 ) 

STRING  NAM (  14)  ( 9 ) ,  ENOFL ( 8 )  ,  TYPO)  (8),  RNID(12),  TYPA(3) 

DIMENSION  NDX ( 27 ) ,  NDYS<27>,  PINP(27,17>,  PMED(27,5> 

DIMENSION  PCD (27),  DEM<27,3>,  DNS (27, 2),  DTE (27),  F'NS(27> 

DIMENSION  AMED  <  27 ,  5 )  ,  DMED (27, 2),  IDO (12) 

DAT  A  D  A  Y  /  "  F'RE-M  "  ,  "M" 

,  '  M+10  " ,  "M+20" ,  "M+30"  ,  "M+40" ,  M+50  " ,  "M+60"  ,  "M+70" ,  "M+80  " ,  "M+90" 

,  M+ 1 00  "  ,  "M+1 1 0  •' ,  -  M+ 1 20  " ,  "  M-t- 1 30  " ,  "  M+ 1  40 " ,  "  M+  ISO",  "  M+ 1  AO  "  ,  M>  1 70  " 

,  "M+130"  ,  "M+190"  / 

DATA  ( DAY ( I ) , I =22 , 27 ) / " M+200 " ,  ' M+2 1 0 " ,  M+220  " ,  "  M+230  ' ,  M+240 ’ ,  ' M+250 '  / 
DATA  TYP/WIA\NBI',  "DISEASED",  WIA?*DIS  "/ 

OATA  PCD/27*. 10/,  ILM/27/,  NBZZ/t3/ 

1  FORMAT ( /  /  ) 

2  FORMAT  (  /  1 2X ,  A  <  _ '  )  ,  22 X  ,  A  (  ' _ •"  )  ) 

4  FORMAT (  1  2 X  ,  A (  " - "  )  ,  22X,A(  " - •  )  > 

7  FORMAT ( 1SX,S12,2X, A9 ) 

1 0  FORMAT ( ///4X, S9 , 2 X , S 1 2 , 9 X , S3 A ,3X, S3 / / ) 

12  FORMAT ( / 15, S3 A, 1 X , S3, 2X , SI  2, 2X , AA) 

20  FORMAT ( / ) 2X ,  ADMISSIONS " , 4X  ,  PATIENTS" , 5X ,  'DOCTORS" , AX , "NURSES" 

, 4X , - CORRSMEN" , 22 X , "OFFICERS  ENLISTED" , 7X , "TOTAL" / 28* ,  "PEAK" / ) 

22  FORMAT ( 4X , AA , 5 1 1 2 , 1 3X ,3112) 

30  FORMAT  <  /  1 4X  ,  "OFFICERS  ,  4X,  "ENLISTED"  ,  7X,  "TOTAL"  /.) 

14  FORMAT < 3 X, 14, "  RECS  USED"/) 

WRITE  (1,1);  ACCFPT  "  PUN  DATE  =  ",  RUNDATE,  " 

200  |  IN  =  -t;  AO’CEPT  "  MEDICAL  FILE  =  ",  MFN 

OPEN  ( 7, MFN, INPUT, BINARY ) ;  NFIL  =  0 

READ  ( 7 )  FI  LTD,  FILDATE;  WRITE  (1,7)  FILID, FILDATE 

I'ALL  OETDO  (IDO,NUMR);  HUMP  =  NUMR  +  NRECH 

? 1 0  READ  ( 7 , END* 250 >  I SW , DATE , THIB, THE TP ,  TYPA -  T TP , I W , NF 1 , NF2 , FMFD 
NFIL  *  NFIL  +  1?  IF  ( IDO(NFIL).FO.O)  GO  TO  210 

WRITE  (1,12)  NFIL , THETR,  TYPA.  THID,  DAY(ITP+1) 

NRECH  *  NRECH  +  1?  KSW  *  M0D(ISW,2) 

IF  (l  IW.LT.O)  LIU  =  TW 
IF  ( IW.NE.LTW)  LIW  =  3 

DO  238  1=1, I LM 

DMFDd.l)  =  DMEPd.l)  +  F'MED  (  1 , 3  >  +  F'MED  (1,4) 

DMED (1*2)  =  DMED (1,2)  +  PMED ( I , 5 ) 

DO  233  K=  1 , 5 

AMED ( I , K  >  =  AMED ( I , K )  +  PMED  < I , K ) 

233  CONTINUE 

I TPX  =  MAX  (ITPX.ITP);  IF  ( NRECH. LT. NUMR )  00  TO  210 

250  CLOSE  (7);  ACCEPT  "  ANOTHER  MED I PAL  FILE  7  ",  NYN 

IF  (NYN.EO.  Y")  GO  TO  200 
WRITE  (1,14)  NRECH?  WRITE  (1,2) 

ACCEPT  "  MEDICAL  TABLE  THEATER  =  ",  THETR,  "  ID  =  ",  THID 
D I SPLAY  CHAR ( l 03 ) 

WRITE  (1,10)  RUNDATE,  THID,  THETR,  TYR(LIW);  WRITE  (1,20) 

DO  513  1*2, ILM 

513  WRITE  (1,22)  DAY  (  I  )  ,  (  AMED  (  I  ,  K )  ,  K=l,5>,  (  DMED  (1,10,  K*l,2) 

, ( DMED ( I , t ) +DMEO ( I , 2) ) 
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WRITE  (1,2) 

WRITE  (1,10)  RUNDATE,  THID,  THETRD,  TYP(LIW)*,  WRITE  (1,30) 

DO  522  1=2, ILM 

522  WRITE  (1,22)  DAY < I ) ,  ( DMED < I , K ) ,  K=l,2),  ( DMED (1,1) +DMED (1,2)) 

WRITE  (1,2>!  WRITE  (1,4);  DISPLAY  CHAR (1 OR) 

DO  532  K=l,5 

DO  532  1=2, ILM 

IF  (K.LT.3)  DMED ( I ,  K )  =  0 
532  AMED( I , K)  =  0 

CLOSE  ( 7 ) ;  NCNT  =  0 

ACCEPT  »  ANOTHER  MEDICAL  TABLE  ?  ",  NYN?  IF  (NYN.EQ.  Y")  Of.  TO  200 
SCO  CLOSE ( 4 )  ?  WRITE  (1,4) 

END 

SUBROUT I NE  OETDO  ( I DO , NUMR > 

DIMENSION  I DO ( * ) ,  INLST(12) 

DO  112  N= 1,12 
112  T  DO ( N )  =  O 

ACCEPT  "  #  OF  RECORDS  TO  PROCESS  =  " ,  NUMR 

ACCEPT  '*  PEC  D  #3  =  ",  (INLST(N),  N=1,NUMR> 

DO  1 22  N= 1 , NUMR 
122  I DO  < I NLST ( N ) )  = 

RETURN 
END 


1 
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MMMDEMPRG 


Function 


This  program  produces  detailed  demand  tables. 

Input 

.  Casualty  data  sets  from  either  MMMCASPRG  or  MMMPRNPRG 
.  Medical  requirements  data  sets  from  MMMHOSPRG 
.  Non-structure  input  as  one  of  the  following: 

1)  %,  by  time  period,  of  non-theater  structure 

2)  personnel  by  time  period 

Output 

.  A  demand  file  containing  each  demand  table  created 
.  A  printout,  by  time  period,  for  each  demand  table 


Use 


The  demand  file  is  an  input  for  the  demand-suply  comparison  program 
(MMMDSMODL) 

Options 


,  Both  casualty  data  sets  and  medical  data  sets  are  individually 
selected  for  use  in  creating  each  demand  table.  This  allows 
flexibility  in  determining  the  cross-sections  represented  in 
each  demand  table;  i.e.,  for  officers  or  enlisted,  for  subset 
theaters(s),  total  theater,  etc. 

.  Table  printouts  are  optional,  and  the  time  periods  for  which 
data  is  printed  may  also  be  specified 
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C: 

Cs 


C: 


1 

7 

9 

to 
12 
14 
1  A 
13 
1? 
20 
62 
64 
66 


1 10 
112 


120 

122 


MMMDEMPRG  DEMAND  MODEL 

STRING 
STRING 
STRING 
STRING 
DIMENSION 
DIMENSION 
DIMENSION 

EQUIVALENCE  ( DEM ,  DOUT ) ,  (DNS, BOUT ( 1,3)),  ( DTE , DOUT (1,14)) 


DAY ( 27  >  (  6 )  ,  THETR  <  36 ) ,  EN0F<3),  THID(12),  DATE ( 9 ) 
MFN ( 1 5  > i  F I L I D ( 15) .  FILDATE<9),  RUNDATE  ( 9 )  »  NYN ( 3 ) 
NAM (  1 4  )  ( 9 ) ,  ENOFL(S),  TYP(8),  DTHETR ( 36 ) ,  RNID(12) 
RORP <  2 ) (?) 

NDX  <  27 ) »  NDYS(27>,  PINP(27,17),  FMED<27,5> 

PCD < 27),  DEM (27, 3),  DNS (27, 2),  DTE (27),  PNS(27) 
DOUT (27, 14),  DMED ( 27 , 2 ) ,  I DO (12) 


DATA  DAY  /  •-  PRE-M  ' ,  M" 

,  ' M  + 1 0 ■' ,  ■'M+20  " ,  'M+30 ' ,  "M+40  ' ,  'M+50  ' ,  'M+60'  ,  'M+70  ' ,  'M+80  '  ,  'M+90  " 

,  'M+100',  M+110',  M+120',  M+130  •' ,  M+140',  'M+150',  •  M+160  ',  'M+170  " 
,  'M+130' ,  'M+190'  / 

DAT  A  DAY  (  22 )  /  M+200  " ,  •'  M+2 1 0  •' ,  "  M+220  " ,  "  M+230  ,  "  M+240  •' ,  •"  M+250  / 

DATA  NAM/  'DEMAND  ,  'TRAINED',  '’STRUCTURE-',  'THEATER',  -'NON-THETR  ' 

,  •'  MED  I  CAL  "  ,  '  B I L  LOS  ' ,  '  NON-STRUC  '  ,  '  CAS-REPLS  '  ,  '  K I A  '  ,  "  U)  I A  ' 

,  '  DNB I  ' ,  ■'  RTOS  ' ,  •'  TRA I NEES  '  / 

DATA  RORP/ 'PATES  ' ,  'PERSONNEL  '  / 

DATA  F‘CD/27*.  1  0/  ,  ILM/27/,  NBZZ/13/ 


FORMAT ( / / ) 

FORMAT  (6X,  15  (  •' _ '  )  /  ) 

FORMAT  < 1 5  X , S 1 2 , 2 X , A9 ) 

FORMAT ( 2X , S36 , 1 X , A 1 2 , 1 X , S3 , 1 X , A9 , 1 X , A6 ) 
FORMAT ( / / 2  X , S9 , 2  X , S 1 2 , 3  X , S3 , 2  X , 336 / ) 
FORMAT ( 1 5 , 2  X , S36 , 2X , S3 , 2X , S 1 2 , A6 ) 

FORMAT  (  8X  ,  1 4,  •'  PECS  USED '  /  ) 

FORMAT  <  7X  ,  ANOTHER  ,  A3 ,  ) 

FORMAT  (  6  X  ,  ENTER  ' ,  S? ,  '  PRE-M  =  '?/ ) 
FORMAT  (6X,  FROM  M+',S4,?/> 

FORMAT ( / 1 4X , 1 4 ( 2X , A6 ) ) 

FORMA T ( / / 2  X , S? , 3X , 1 4  T 3 ) 

FORMAT ( /4X , S?, IX, 1413) 

FORM AT ( 6 X, S3, 1413) 


WRITE  (1,1) 

ACCEPT  "  RUN  DATE  =  ",  RUNDATE,  " 
ACCEPT  "  RUN  THRU  DAY  M+",  NTT? 

ITP X  =  NTT/10  +  1 
ACCEPT  "  DEMAND  FILE  =  ",  MFN," 
WRITE  (4>  FILID,  RUNDATE?  WRITE 
RNID  =  FILID 
DO  112  1=1,27 


ID  =  ",  FILID,  " 

DISPLAY  "  "?  WRITE  (1,2) 

?  OPEN  (  4 ,  MFN ,  01  ITF'UT ,  B I  NARY  t 


PNS ( I )  =0 
PCD ( I )  =  0 

ACCEPT  "  NON-STRUCTURE  INPUT  ?  ",  NYN,  " 

IF  (NYN.EQ.N  >  GO  TO  130 

IRORP  =  1?  ACCEPT  "  RATE  ?  ” , NYN,  " 

IF  (NYN.EQ.N')  IRORP  =  2 

WRITE  (1,13>  POPP ( I PORP ) ;  ACCEPT  PCD I N 

IF  (IRORP.EQ.l)  PCD ( 1 )  =  PCD IN 
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IF  (IRORP.EQ.l)  PCD ( M )  =  PCDIN 
IF  (IR0RP.EQ.2)  PN3  <  M )  =  PCDIN 
126  CONTINUE 

IF  (NT.LT.NTT)  GO  TO  120 

130  DO  134  1=1,27 

DO  132  J=1 ,14 

1 32  DOIJT  <  I ,  J )  =  0 

DMED (1,1)  =  0;  DMED (1,2)  =  0 

1 34  DOIJT  (1,8)  =  PNS  ( I  ) 

NREC  =  0;  NSW  =  -1 

140  DISPLAY  "  ” 

ACCEPT  "  CASUALTY  FILE  =  ",  MFN;  OPEN  ( 7, MFN, INPUT, BINARY > 
READ  (7)  FILID,  FILDATE;  WRITE  (1,7)  FILID,  FILDATE 

CALL  GETDO  (  I  DO ,  NUMR  )  ;  NUMR  =  NIJMR  +  NREC 

NFIL  =  O;  ENOFL  =  '  •' 

1 50  READ  ( 7 , END= 1 90 )  I SW , DATE , THID, THETR , ENOF ,  I TP , M , M , M , P I NP 

NFIL  =  NFIL  +  1?  IF  ( IDO ( NFIL ). EQ. O)  GO  TO  150 

IF  (ENOFL. EQ,  '  ')  ENOFL  =  ENOF 
IF  (ENOF. NE. ENOFL )  GO  TO  150 

WRITE  (1,12)  NFIL,  THETR,  ENOF,  THID,  DAY ( ITP+1 ) 

NREC  =  NREC  +  11  KSW  =  MOD  ( ISW,2) 

IF  (NSW.LT.O)  NSW  =  KSW 
IF  (KSW.NE.NSW)  NSW  =  2 
DO  168  1=1, ITP+1 

DOIJT  <  1 ,  1 1 )  =  DOIJT  (1,11)  +  P I  NP  (  1 , 8  > 

DOIJT  (1,12)  =  DOUT  (1,12)  +  P I  NP  ( 1 ,  1 1  ) 

DOIJT  (1,13)  =  DOUT  ( 1 ,  13)  -  PINP(I,15) 

IF  (KSW.EQ.l)  GO  TO  164 

DOUT  d,8)  =  DOUT  (1,8)  +  PCD  (  I  )  *P  I  NP  (  1 ,  1 ) 

DOUT  (1,4)  =  DOUT  (1,4)  +  P  T  NP  (  I  ,  ]  ) 
noilT(I,10)  =  DOUT  (1,10)  +  PIMP  (1, 7) 

DOUT (1,7)  =  DOUT (1,7)  -  PINP<I,6> 

GO  TO  163 

164  DOUT  (1,5)  =  DOIJT  (I,5>  +  PIMP  (1,4) 

DOUT  (1,8)  =  DO' IT  (1,3)  +  PCD  (  I  i  *P  INF  (1.4) 

163  CONTINUE 

IF  < NREC. LT. NUMR)  GO  TO  150 

l 80  CLOSE  <7)1  WRITE  (1,16)  FNOF ’  ACCEPT  "  CASUALTY  FILE  ?  " 
IF  (NYN.EO.  Y  )  GO  TO  140 

WRITE  (1,14)  NRECl  NREOH  =  O;  l.IW  =  -1 

200  ACCEPT  "  MEDICAL  FI1.E  =  ",  MFN;  IF  (MFN.EO.  N  )  GO  TO  32 

OPEN  ( 7, MFN, INPUT, BINARY ) 1  NFIL  =  0 

READ  (7)  FILID,  FILDATE;  WRITE  (1,7)  FILID, FTLDATE 

CALL  GETDO  (I  DO,  NUMR);  NUMR  =  NIJMR  +  NREOH 

210  READ  (  7 .  END=250 )  ISW,  DATE,  THID,  THFTR,  TYP,  ITR,  TUI,  NF1 ,  NF2,  PMED 
NFTL  =  NFIL  +  1 ;  IF  ( I DO ( NF IL ) . FO. 0 )  GO  TO  210 

WRITE  (1,12)  NFIL, THETR,  TYP,  THID,  DAY (ITP+1) 

NREOH  =  NPECH  +  1;  KSW  =  MOD( ISW, 2)  • 

DO  238  1=1, ITP+1 

IF  (KSW.EQ.l)  GO  TO  230 

IF  ( ENOF. EO.  'ENLISTED'  )  GO  TO  224 

DMED (1,1)  =  DMED (1,1)  +  PMED (1,3)  +  PMED(I.4>;  GO  TO  23 

224  DMED (1,1)  =  DMED (1,1)  +  PMFD(I,5>;  GO  TO  238 
230  IF  ( ENOF. EQ.  ENLISTED  >  GO  TO  234 

DMED (1,2)  =  DMED (1,2)  +  PMED (1,3)  +  PMED ( I  -  4 ) ;  GO  TO  2 3 

2  34  DMED  (1,2)  =  DMEDd.2)  +  PMED  (1,5) 
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238  CONTINUE 

I TPX  =  MAX  (ITPX.ITP);  IF  ( NRECH. LT. NUMR )  GO  TO  210 

250  CLOSE  (7)5  ACCEPT  "  ANOTHER  MEDICAL  FILE  ?  ",  NYN 

IF  (NYN.EQ.'Y')  GO  TO  200 
WRITE  (1,14)  NRECH;  WRITE  (1,2) 


320  DO  358  I=1,ITPX+1 

IF  < I . EQ . 1 >  GO  TO  350 

nOIJT  (  1,7)  =  DOUT  (1,7)  +  DOUT  (1-1,7) 
DO  333  J= 1 0 ,  1 3 


333 

DOUT ( I ,  •  J  > 

= 

DOUT ( I , J  > 

+ 

DOUT ( I 

- 1  ,  .J 

1) 

350 

DOUT (1,3) 

= 

DOUT (1,10) + DO UT < I , 

1  1  ) 

+ 

DOUT (1,12 

DOUT (1.4) 

DOUT (1,4) 

- 

DOUT ( I 

,7) 

- 

DMED (1,1) 

DOUT (1,5) 

= 

DOUT (1,5) 

- 

DMED ( I 

,2) 

DOUT (1,6) 

= 

DMED ( 1,1) 

+ 

DMED  < I 

,  2) 

DOUT ( I , 3 ) 

= 

DOUT  d,4) 

+ 

DOUT ( I 

,5> 

+ 

DOUT ( T , 6 ) 

DOUT (1,2) 

= 

DOUT ( I , 3 ) 

+ 

DOUT ( I 

,  3) 

+ 

DOUT (1,3) 

353 

DOUT (1,1) 

= 

DOUT (1,2) 

+ 

DOUT ( I 

,14) 

)  +DOUT (1,13) 


+  DOUT (1,7) 
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40  2 


450 


ACCEPT  “  DEMAND  THFATFR  NAME  =  " ,  THETR 

WRITE  (  4  )  200+NSW ,  RtJNDATE ,  RN I  D ,  THETR ,  FNOF ,  I  TP  X  ,  0 ,  NREC ,  NRECH ,  DEM ,  DNS ,  DTE 

NPD  =  14 
DO  402  N= 1 , NPD 


IF  (N. LT. 12)  MDX (N)  =  N 

IF  (N.GT.ll)  NDX(N)  =  N  +  2*(N-11> 

CONTINUE 


ACCEPT  " 
ACCEPT  " 
ACCEPT  " 
ACCEPT  " 


PRINT  DEMAND  DETAIL  ?  ",  NYN? 
STANDARD  PRINT  ?  ."  ,  NYN;  IF 
#  OF  PERIODS  TO  PRINT  =  ",  NPD; 
1. 1  ST  PER  I OD  ( S )  :  ",  <  NDYS  ( N  ) ,  N= 


DO  412  N=2, NPD 

NDX(N)  =  2  +  NDYS ( N  > / 1 0 


ACCEPT  "  .  "  , NYN 


IF  (NYN.  FQ.  ”N •'  )  0 0  T 0  500 
(NYN. EC.  Y" )  GO  TO  430 
NPD  =  NPD  +  1 
2, NPD);  NDX(l)  =  1 


NT  =  O 


NR  =  NT  +•  l;  NT  =  M I N  <  N8+NBZ  2  ,  NPD  ) 

WRITE  (1,10)  Rl  INDATE,  RNID,  ENOF,  THETR 
WRITE  (1,20)  ( DAY ( NDX ( N ) ) ,  N— NB , NT ) 


4  A  2 

4  A  4 
4 

4  AS 


500 


DO  4 AS  ,.1=1,14 

GO  TO  ( 462 , 46? , 464 , 466 , 466 , 466 , 466 , 464, 464 , 466 , 466 


WR I TE  ( 1 , 
WRITE  ( 1 , 
WRITE  ( 1 ■ 
C  ONT  I  Nl  IF 
WR I TE  ( 1 ■ 


62 ) 
A4  ) 

66) 

1 ) ; 


NAM  ( ..I )  ,  (  DOUT  (  NDX  (  N  )  ,  -.1 ) 

NAM  (  J  )  ,  (  DOIJ  T  (  NDX  (  N  )  ,  J  ) 

NAM ( •  I ) ,  ( DOUT ( NDX ( N ) , .  n 


N=NR , NT ) 
N=MB, NT ) 
N=NR , NT ) 


WRITE  (1 


■ ) 


IF  ( NT. LT. NPD ) 


AfCEF'T  "•">  NVN 


466 , 466 , 4 AS 
GO  TO  46 S 
GO  TO  4 AS 


GO  TO  450 


AT CERT  "  ANOTHFR  DEMAND  TABLE  ?  ",  NYN;  IF  (NYN.EQ.Y)  00 
CLOSE  (4):  WRITE  (1,2) 

END 


)  , 


TO 


1  10 


si  IBROUT  I NE  GETDO  (  I  DO ,  NUMR  ) 

DIMENSION  i DO ( *  > ,  INLST(12) 
no  112  N= 1,12 
112  I  DO <  N )  =  0 

ACCEPT  "  #  OF  RECORDS  TO  PROCESS  =  ",  NUMR 

ACCEPT  "  PEC  P  #8  =  ",  (INLST(N),  N=1,NUMR) 
DO  1 22  N= 1 , NUMR 
122  I  DO ( I NLST ( N ) )  =  1 

RETURN 
END 
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MMMDSMODL 


Function 

This  program  computes  trainee  demand  as  a  function  of  trained  demand 
shortfall  and  trainee  supply,  and  displays  a  supply  table,  demand  table, 
summary  table,  and  demand-supply  graphs. 

Input 

.  Supply  data  sets  created  by  the  supply  program  (MMMSUPPRG) 

.  Demand  data  sets  created  by  the  demand  program  (MMMDEMPRG) 

Output 

.  A  supply  table  (cumulative) ,  by  time  period 
.  A  demand  table  (cumulative),  by  time  period 

.  A  sumnary  table  showing  supply  overages  (shortages) ,  by  time  period 
.  A  graph  of  total  demand  and  supply  curves 
.  A  graph  of  trained  demand  and  supply  curves 
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C! 
0 : 


MMMDSMODL  SUM, PRINT, COMPARE, GRAPH  DEMAND-SUPPLY 


COMMON 
STRING 
STR I NG 
STRING 
DIMENSION 
D I MENS I ON 


DAY,  NPD,  NDX ( 77 ) ,  RNID,  RDATE,  ETYP ,  ENOF1,  ENOF2 
DAY  <  27  )  (  6  )  ,  FILID' 15),  FILDATE<9>,  DATE  <  9  >  ,  THID(12) 

THETR  <  36  >  ,  I FN  (15),  LFNU5),  NYN  (  3) ,  RNID(9),  ENOF(S) 

ENOF 1(8),  EN0F2 ( 3 ) ,  ETYP (9),  RDATE ( 9 ) 

SINP  (27,7)  ,  D I NP  ( 27 ,  6 ) ,  SUP  <  27  )  ,  DEM<27>,  NDYS<27),  ID0U2) 
SOUT (27,7),  DOUT (27,6),  COUT ( 27, 9 ) ,  TRSI27),  TRD(27) 


EQUIVALENCE  (DINP-SINP),  <NDYS,SINP),  ( TRS , SOUT ( 1 , 2 ) ) 

EQU I VALENCE  ( SUP , SOUT ) ,  ( DEM , DOUT ) ,  ( TRD ,  DOUT (1,2)) 

DATA  DAY / ' PRE-M  ' , XM ' 

,  "M+10  " ,  XM+20X  ,  "M+30" ,  'M+40  " ,  M+50"  ,  M+60 ' ,  'M+70  " ,  "M+SO  "  ,  -'M+^O' 
,  M+IOO  ",  "M+tlO ",  "M+l  20  "  ,  'M+130',  "M+140",  "M+150",  "M  +  ISO",  "M+170 
,  "M+l SO"' ,  M+l 90  " ,  "'M+ZOO  " ,  "M+210 "  ,  "M+220"  •  "M  +  230  '  ,  "M+240  "  / 

DATA  DAY  <  27  )  /  "M+240"' ,  "M+250'"  /  ,  ENOF  l  /  "  "/,  ENOF  2/  "  "' /  ,  ILM/27/ 


2  FORMAT (////) 

4  FORM  AT  (  /  4  x  ,  1  2  (  "' _ ■)//) 

7  FORMAT < t  S X , S 1 2 , 2 X  - A9 ) 

1  2  FORMAT < IS, 2X , S3A , 2X , SS ,2X, S 1 2 , A 6 > 
1 0  FORMAT  <15,1  3H  PEC  DS  READ / 1 


f 


r 


i' 


NPD  =  14 
DO  1 02  N= 1 , NPD 
TF  (N.LT.12)  NDX(N)  =  N 
TF  (N.GT.11)  NDX(N)  =  N  +  2*(N-U) 

102  CONTI  Ml  IF 

NR  T  TF  <1,41;  AOCFPT  "  PON  DATF  =  ",  RDATF ,  "  ID  =  ",  RNID 

ACCEPT  "  STANDARD  PRINT  ?  ",  NYN;  IF  <  NYN .  EO .  Y  1  GO  I'O  1 30 

ACCEPT  "  #  OF  PERIODS  TO  FRINT  =  ",  NPD;  NPD  =  NPD  +  1 

ACCEPT  ”  LIST  PERIOD'S) :  ”,  <  NDYS ' N ) ,  M=2,NPD);  NDX  < 1 )  =  1 

ACCEPT  "  ENTER  PRINT  OPTIONS:  ",  IFRS,  T  F'R'D ,  I  PRY,  TORY 
DO  122  N=2 - NPD 

122  NDX<N1  =  2  +  NDYS<N)/tO 

ISO  TTPX  =  NDX < NPD l:  WRITE  <1,41:  NR EC  =  O 

900  ACCEPT  "  SUPPLY  FTIF  =  ",  TFN:  IF  <IFN.F0.N1  GO  TO  300 

OREM  <3.  TFN,  INPI  IT,  BINARY) 

PFAD  02)  FILID,  FILDATE;  UIRITF  (1,7)  FILID,  FILDATF 

NFTL  =  O;  CALL  OFTDO  (  I  DO,  NUMR '  ;  Ni  IMP  =  NUMR  +  NRFC 


220  RF AD  < 3, FND=?soi  ISW,  DATE,  THID,  THETR,  FNOF ,  T TP ,  SINP 

NFTL  =  NFIL  +  l;  IF  < I DO < MF T L ) . EO. O 1  GO  TO  220 

WRITE  <1,121  NFIL,  THETR-  FNOF,  THID-  DAY(ITP+1):  .■NRFC  =  NRFC:  +  1 

DO  233  1  =  1 ,  i T P  +  l 

DO  2  23  ..1=1,7 

•  23  SOI  IT  (  I  ,  J  )  =  SOI  IT  <  I  ,  .  I )  +  SINP  (  I  ,  .J  1 


IF 

( FNOF 1 

.  FO 

.  "  "  ) 

FNOF  1 

=  FNOF 

I  F 

(FNOF. 

FO. 

ENOF  1  1 

GO 

TO  240 

I  P 

( FNOF 2 

.  EO 

.  "  1 

ENOF  2 

=  FNOF 

I  P 

( NRFC . 

LT. 

NUMR  1 

GO  T  0 

220 

p  i  1 

•T  "  ANOTHFR  SUPPLY  r"E  ,  NYN:  TF  (NYN.FO.  Y")  GO  TO  200 

-  .  ,  1/,)  NRFC:  WRITS  (1,4):  NRFC  =  0 
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300  ACCEPT  "  DEMAND  FILE  =  ",  LFN;  IF  (LFN.EQ.'NM  GO  TO  500 

OPEN  (7, LFN, INPUT, BINARY) 

READ  (7)  FILID,  FILDATE,  WRITE  (1,7)  FILID,  FILDATE 

NFIL  =  O',  CALL  GETDO  <  I  DO,  NUMR  )  ;  NUMR  =  NUMR  +  NREC 

320  READ  ( 7 , END=390 )  ISW,  DATE,  THID,  THETR,  ENOF,  I  TP,  NF , NF . NF ,  DINP 
NFIL  =  NFIL  +  I?  IF  (  I  DO  ( NFIL  > .  EC!.  0)  GO  TO  320 

WRITE  (1,12)  NFIL,  THETR,  ENOF,  THID,  DAY ( ITP+1 ) ?  NREC  =  NREC  +  1 

DO  333  1=1,1 TP+ 1 

00  333  J= 1 , 6 

333  DOUT  <  I ,  .J )  =  DOUT  (  I  ,  .J )  +  D I NP  <  I ,  -J ) 

I F  (  ENOF  1 .  EG .  '  )  ENOF  1  =  ENOF 

IF  ( ENOF. EG. ENOF 1 )  GO  TO  340 

IF  ( ENOF 2. EQ. '  ')  EN0F2  =  ENOF 
340  IF  ( NREC. LT. NUMR)  GO  TO  320 

330  CI.03E  (7) 

ACCEPT  "  ANOTHER  DEMAND  FILE  ?",  NYN:  IF  ( NYN .  EQ .  " Y ■'  >  GO  TO  300 

WRTTE  (1,16)  NREC?  WRITE  (1.4) 

DO  398  1  =  1, I  TP X 

TEMP  =  O 

IF  ( 1+9. LE. ILM)  TEMP  =  MIN  (0,  ( ( SGUT ( I +9 , 2 ) -DOUT ( 1+9,2) ) / . 9 )  ) 

DOUT (1,6)  =  SOUT (1,7)  -  TEMP  , 

■3  DOUT (1,1)  =  DuUT (1,1)  +  DOUT (1,6) 

400  DO  458  1=1, I TP X 

COUT (1,1)  =  SOUT (1,1);  COUT (1,2)  =  SOUT (1,2); 

COUT (1,4)  =  DOUT (1,1);  COUT (1,5)  =  DOUT (1,2)5 
COUT (1,7)  =  SOUT (1,1)  -  DOUT (1,1) 

C  OUT  <  I .  ,  8  )  =  SOUT  d,2)  -  DOUT  (1,2) 

458  COl  IT  (  1 . 9  )  =  COUT  (1,3)  -  COUT  (1,6) 

FTYP  =  FNOFl;  IF  (EN0F2.NE.  "  ')  FTYP  =  ETYP  +  •"  /  ' 

500  DISPLAY  CHARM 08);  CALL  DSPPNT  (2.  SOUT) 

UiR  T  TE  (  1 , 2  )  5  CAL  L  DC  PR  NT  (  1  ,  DOUT  ) 

DISPI  AY  CHAR  (108);  CALL  DSPRNT  (3,  COl  IT) 

D I  CPI.  AY  CHAR  (1.08)?  CAI  L  DSORPH  (DEM,  SUP) 

DISPL  AY  CHAR ( 1 08 ) '  CALL  DSORPH  ( TRD, TRS ) ;  DISPLAY  CHARI  LOS) 

END 


SI  ipRCil  IT  I  NF  GFTDO  (  I  DO ,  Nl  IMR  ) 

D I MFNS I ON  I  DO ( * ) ,  I NLST ( 1 2 ) 

DO  112  N= 1,12 
112  T  DO  (  N  )  =  0 

ACCEPT  "  #  OF  RECORDS  TO  PROCESS  =  ",  NUMR 

ACCEPT  "  RFC  0  #8  =  ”,  MNLST(N),  N=1,NUMR> 

DO  t  22  N= 1 , NUMR 
L  22  T  DO ( l NLST ( N )  )  =  1 
RETURN 
FND 

SUBROUTINE  DSPRNT  ( NSW , FMAT  > 

COMMON  DAY,  NPD,  NDX(27),  RNID,  RDATE,  ETYP,  ENOF 1 ,  ENOF  2 

STRING  DAY (27) (6),  RNIPC?) 

STRING  WDO  (  3 )  ( 7 )  ,  WDK3M9),  WD2(4,2)(10) 

STRING  ENOF 1(8),  EN0F2(8),  ETYP(9),  RDATE (9) 

DIMENSION  FMAT(*,*) 

DATA  WDO/  DEMAND' ,  SUPPLY' , 'SUMMARY  / 


COl  IT  (  I  ,  3  )  =  SOUT  (1,7) 
COUT  (1,6)  =  DOI.IT  (1,6) 
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DATA  WDl /' TOTAL ' , 'TRAINED' , 'TRAINEE'/ 

DATA  WD2/' STRUCTURE' , 'NON-STRUCT ' , 'CAS-REPLS' , '  ',' INITIAL  AF 

, 'SELECT  RES','OTHR  INACT' , 'TRAIN  OUTP'/ 

DATA  WD3/' INDIVID' , ' K I A ' , 'WIA' , 'DNBI ' , 'BIL  LOSS' , SHRTD'S/ 

DATA  NBZZ/13/ 

10  FORMAT ( /2X, S9, 4X, S8, 4X, S9, S8/43X , '*  CUMULATIVE-' , S3, '*' ) 

12  FORMAT ( / / 14X  * 1 4 ( 2X ,  A6 ) ) 

20  FORMAT <  /  /  2X , S9, 3X, 1418) 

22  FORMAT ( /4X , S7 , 4X , 1 418 ) 

24  FORMAT( /AX, S10,  1418) 

26  FORMAT ( / /2X , ' SHORT ( OVER ) ' /2X , ' TOTAL  ' , 3X , 1 41 8  > 

NT  =  0 

00  NB  =  NT  +  11  NT  =  MIN<  NB+NBZ  Z , NPD ) *  WDO ( 3 )  =  'SUMMARY 

WRITE  (1,10)  RDATE ,  RNID,  ETYP,  EN0F2,  WDO (NSW) 

WRITE  (1,12)  ( DAY  <  NDX ( N ) ) , N=NB , NT ) 

GO  TO  ( 220 , 220 , 260 ) ,  NSW 

20  WRITE  (1,20)  WD1<1>,  ( FMAT < NDX ( N ) , 1 ) ,  N-NB , NT ) 

WRITE  (1,22)  WD 1(2),  ( FMAT < NDX ( N ) , 2 ) ,  N=NB, NT ) 

DO  224  J= 1 , NSW+2 

24  WRITE  (1,24)  WD2 < U, NSW ) ,  ( FMAT ( NDX ( N ), J+2 ) ,  N=NB, NT ) 

WRITE  (1,22)  WD 1 ( 3 ) ,  ( FMAT ( NDX ( N ), NSW+5 ) ,  N=NB, NT ) 

I,  II  TO  290 

60  WDO ( 3 )  =  'TOTAL' 

DO  268  ..1=1,3 

IF  (.J.EQ.3)  GO  TO  264 

WRITE  (1,20)  WDO  <  3-J ) ,  ( FMAT ( NDX ( N ) , 3*J-2 ) ,  N-NB, NT);  GO  TO 

64  WRITE  (1,26)  ( FMAT ( NDX ( N ) , 3*J— 2 ) ,  N=NB , NT ) 

66  WRITE  (1,22)  WDl  (  2  )  ,  (  FMAT  (  NDX  (  N ),  3*.J- 1  )  ,  N=NB,  NT  ) 

•68  WRITE  (1,22)  WDl  (3),  <  FMAT  (  NDX  (  N  ),  3*.J  )  ,  N=NB,  NT  ) 

;90  IF  1NT.LT. NPD)  GO  TO  200 
E 
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SUBROUTINE  DSGRPH  (DEM, SUP) 

COMMON  DAY,  NPD,  NDX(27>,  RNID,  RDATE ,  ETYP,  ENOF1,  EN0F2 

STRING  DAY  ( 27  > ( 6  > ,  DY(27>(3>,  DY1(3)(3>.  S I (3  > ,  RNID(9),  DID(2)(7) 

STRING  PI ( 2 1 > ( 1 > ,  P2 (  2 1  >  (  1  ) ,  RDATE ( 9 )  ,  ETYP(9),  ENOF 1(8),  ENOF2(8) 

STRING  AFM ( 13 ) ,  PFMU5),  CFM(42),  DFM(24),  CFM3(42>.  CFM  2 ( 30 ) 

DIMENSION  DEM<*>,  SUP  ( * ) ,  IDM(27),  ISP(27),  INC(tO),  K'INT(IO) 

DATA  DY1/  PRE'-,'-  M  ' ,  M+V,  DY/'  M  ' ,  'DAY" ,  •'  10',  -  20 ' ,  '  30" 

,  -  40',-'  50',''  60",'  70','  SO',''  90  ' ,  "  100x  ,  '  1  10  ' ,  •'  120' 

,  "  1  30  ' ,  '  1 40  " ,  "  1  50  ■' ,  •'  1 60  ','170  ' ,  '  1 80  ",•'190',  '  200 "' ,  2 1 0  "  / 

DATA  L I M/26/ ,  LENSET/115/,  INC/ 1 , 2, 5, 10, 20, 25, 40, 50, 100, 200/ 

DATA  K I NT / 5*5 , 4 , 4*5 / ,  DID/"  TOTAL  ", 'TRAINED ' / 

2  FORMAT (////) 

10  FORMAT^ IX, S9, ! X,S9/1X,S9,S8,4X, 'CUMULATIVE  DEMAND  AND  SUPPLY", 

"  COMPARISONS', 10X - S7//3X ,  MANPOWER' /4X , " (THOUS) ' / > 

NP  =  MIN(LIM,NPD) ?  DMX  =  0;  SPX  =  O?  IDID  =  IDID  +  1 

DO  US  N=  1 >  NP 

DMX  =  MAX  ( DMX , DEM ( NDX ( N ) ) )  !  SPX  =  MAX  ( SPX , SUP ( NDX ( N )  ) ) 

US  CONTINUE 

DMX  =  DMX/ 1000?  SPX  =  SPX/ 1000;  DSX  =  MAX (DMX, SPX) 

DO  128  .  J=l,8 

T  F  ( 45* I NC ( J ) . GT . DS X )  GO  TO  1 30 

128  CONTINUE 
STOP 

iso  div  =  r  nc  <  j ) ;  jc  =  j 

DO  1 33  N= 1 , NP 

IDM(N)  =  DEM ( NDX ( N ) ) / ( 1 000*D I V ) 
t  38  I SP  (  N )  =  SI  IP  ( NDX  ( N )  )  /  (  1 000*D I V  ) 

I.EN  =  LENSET/NP:  AFM  =  "(Til,"  +  STRU  EN*NP+1  )  +  "  <  1  H_ )  ,  St  )  •" 

RFM  =  " <  T '  +  STR(LEN*NP+12)  +  ' , 1 H I )  ?  SI  =  STR  ( LEN-2-LEN /2 ) 

DFM  =  MUX,-'  +  SI  +  '  X ,  S3 ,  +  STR(NP-l)  +  '  <  "  +  STR  ( I.EN-3 )  +  X,S3))' 

SI  =  STR  (LEN-l-LEN/2) 

C  FM2  =  SI  +  "  X  ,  A 1 ,  '  +  STR  ( NP—  t  >  +  '("  +  STPN.EN-l )  +  'X,  At ,?/)  )  ' 

CFM3  =  '  ( T 1 2 ,  +  CFM2 

WRITE  (1,10)  RDATE, RNID, ETYP, EN0F2, DID ( TDID) •  WRITE  ( 1 , AFM ) 

DO  1 93  J.J-1,46 

F  =  46-.  J..  I 
DO  1.78  N=  1  ,  NP 
PUN)  =  ' 

178  P2(N)  =  •"  •' 

DO  1 33  N= 1 , NP 

IF  ( I  DM ( N ) . FO . K )  P l ( N )  =  " D 

IF  (  ISF-(N)  .EO.K)  P2(N)  =  "'S  ' 

133  CONTINUE 

I F  < MOD ( K , F I  NT ( JC )  ) . OT . 0 )  GO  TO  1 92 
CFM  =  ( 5X  .  14, 2H_I ,  "  +  CFM2?  WRITE  (  1  .  CFM.)  K*INC(  JC),  <P1(N),  N=1-NP) 

WRITE  ( 1 , CFM3 )  ( P2 < N ) ,  N= 1 , NP > !  00  TO  194 

1  92  CFM  =  ’  (  t  0 X  ,  1  H I  ,  •"  +  CFM 2 

WRITE  (  1 ,  CFM )  (FUN),  N=1,NP>?  WRITE  (1,CFM3)  (P2<N),  N=1,NP) 

l'r'4  IF  (K.GT.O)  WRITE  (  1  ,  BFM  > 

1  -:)3  CONTINUE 

WRITE  ( 1 , AFM )  "I";  WRITE  ( 1 , DFM )  ( DY 1 < MIN ( NDX ( N > , 3 ) ) ,  N=1,NP) 

WRITE  ( 1 , DFM )  ( DY ( NDX ( N ) ) ,  N=1,NP) 

END 


